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PROGRAM TAPES 


TAPE CONTROLLER 

MODEL 


PROGRAM 

PART NUMBER 

130 & 

150& 






131 

151 

160 

180 

190 



1 

3 

3 

1 

1 

Diagnostic Program Paper Tape (PDP-11) 

01300110 

1 

3 

3 

1 

1 

Reliability Program Paper Tape (PDP-11) 

01300128 

2 

3 

3 

2 

2 

Master Magnetic Program Tape (PDP-11) 

68000009 

2 

2 

2 

2 

2 

WPDP Magnetic Program Tape (PDP-ll/LSI-11) 

68000017 

3 

1 

1 

3 

- 

Diagnostic Program Paper Tape (LSI-11) 

67000000 

3 

1 

1 

3 

- 

Reliability Program Paper Tape (LSI-11) 

67000018 

3 

3 

3 

3 

- 

Sample Driver Program Paper Tape 

01300466 


KEY: 1 

Standard 

Program 

2 

Optional 

Program 

3 

Special 

Purpose 
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2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 
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17 

ift 

19 

20 
21 
22 

23 

24 

25 

26 
27 
2ft 

29 

30 

3? 

33 

34 

35 

36 

37 
3ft 

39 

40 

41 


*++*♦♦+*«*»*****«♦«*♦*«*+♦*•*****♦*****#**♦** 

•JWP'-VPDPll HAG TAPE FUNCTIONAL 0IO6NOSTIC * 

♦PROGRAM LISTING# 466.2 * 

♦ author: allx siloti * 

** + * + •*****♦*♦*♦♦+ *******♦ *♦♦♦************♦♦* 

1. austhact 

THL MAG TAPt INSTRUCTION TEST CONTAINS A SERIES OF BASIC TESTS TO 
CHECK CONTROLLED REGISTERS FOR PROPER OPERATION WHILE NOT INVOLVE: 
TAPE MOTION, ALL TAPE MOTION FUNCTIONS* DATA TRANSFERS* EXTCNOED 
MEMORY* AND MANJaL INTERVENTION TESTS OF THE TAPE TRANSPORT SWITCH 

2. REUUIREMEN1S 

2.1 EQUIPMENT 

P0P11 WITH MAG TAPE CONTROLLER AND 1 TAPE UNIT 

2.2 STORAGE 

THE ROUTINE REQUIRES 4K OF MEMORY. 

3* LOADING PROCEDURE 

PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWED# 

1. ABSOLUTE LOADER MUST BE IN MEMORY. 

2. PLACE BINARY TAPE IN READER. 

3. LOAD ADDRESS *7500 <* DETERMINED BT LOCATION OF LOADER) 

4. PRESS "START** (PROGRAM WILL LOAO) • 

4, STARTING PROCtOjRE 

4.1 STARTING ADURESS 
200 

4.2 PROGRAM ANO/OR OPERATOR ACTION 

1, LOAD PROGRAM INTO MEMORY. 

2, PLACE ONE TARE JNIT# ON-LINE, AT LOAD POINT (BOTl 

3, set switch register to starting address. 

4, LOAO ADDRESS. 

5, PRESS START. 

6, PROGRAM WILL Ty*E “SET Sw REG ACCORDING TO OPERATING INSTRUCTION 

ANii PRESS CONTINUE" 

7, set switch register to apphopiate settings in accordance with a. 

AND PRf SS CONTI VUE 
ft, THE PROGRAM WILL BEGIN TESTING. 


a. 

5*1 

5 * 1*1 


OPERATING procedure 
OPERATIONAL switch SETTINGS 
WITH SWITCH!S 13 THROUGH 15 


and Conti Nut in 


DOWN 

WILL 


42 

15.1*2 SWITCH 

5fII INK 

43 

1 SWl5 = 

1 

OR 

JP 

44 

l SWl4 s 

1 

OR 

UP 

45 

( Swi3 = 

1 

OR 

J P 

46 

1 SW12 = 

1 

(JR 

JP 

47 

1 SWU - 

1 

OR 

JP 

48 

t Sw10 = 

1 

OR 

UP 

49 

1 SW9 = 

1 

OR 

JO 

50 

I SW6 s 

1 

OK 

JP 

51 

1 SW 7 = 

1 

OR 

JP 

52 

1 SW6 s 

I 

OK 

up 

53 

1 Sw5 s 

1 

OR 

JP 

54 

( SW4 - 

1 

OR 

JP 

55 

• SW3 = 

1 

OR 

JP 

56 

( SW? = 

1 

OK 

JP 

57 

i sun - 

I 

OR 

JP 


TEST. (DELL 
ARE l 

HALT ON ERROR 
SCOPE LOOP 
INHIBIT PRINTOUT* 

INHIBIT SUDTEST ITERATION 

inhibit manual intervention 

UNIT SCLf"CT BIT 2 TRUE 

UNIT seirci HIT 1 TRUE 

UNIT SELECT HIT 0 TRUE 

MAG TAPE DUS LEVEL BIT 
MAo TAPE DUS LEVEL 
MAG TAPE DUS LEVEL 
ALT r KN A Tt MAG TAPE 
TEST 1DM PACKING / 

TEST PHASE ENCODED 
TEST 7 CHANNEL TAPE 


The PROGRAM WILL PRINT OUT ONCE 
RING AT COMPLLTION OF A PASS*. 


TEST 


BIT 

BIT 


2 TRUE] 

1 tkueV 

0 TRUEJ 
ADDRESSES 3 
UNPACKING 
TAPE UNIT 
UNIT. 


INT 


NORMALLY, BUE LEVEL 5. 
USE BUS LEVEL 4 FOR MO: 

VECTORS 


T L5I4E 


NOTE CARTRIDGE 


'TA Lis b 

2* ON 
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58 

(5*1*3 

59 

1 

60 

\ 

61 

1 

62 

I 5.2 

63 

iscOPE 

64 

i 

65 

( 

66 

1 

67 

( 

60 

IHLT 

69 

l 

70 

I 

71 

( 

72 

(TSTLJR 

73 

1 

74 

I 

75 

t 

76 

1 

77 

IWAIUR 

78 

« 

79 

1 

60 

1 

ai 

( 

62 

(tstrsr 

83 

l 

34 

1 

85 

1 

36 

1 

87 

1 

86 

1 

89 

1 

90 

I 

91 

tTSTHGS 

92 

1 

93 

( 

94 

1 

95 

1 

96 

1 

97 

1 

98 

I 

99 

1 

100 

IPRTMSG 

101 

1 

102 

1 

103 

IPRTUCT 

104 

( 

105 

IMTTKP 

106 

* 

107 

1 

108 

IPRTGJT 

109 

1 

HO 

) 

111 

1 XCLUR 

112 

I 

113 

IROTLIP 

114 

1 


MANUAL INTERVENTION TEST 

THIS TEST WILL REQUIRE THE OPERATOR TO PERFORM CERTAIN OPERATION 
WITH THE TAPE TRANSPORT AS DIRECTED BY MESSAGES PRINTEO ON THE 
TELETYPE. 

SUBROUTINE ABSTRACTS 
(RSI LOOP ON TEST) 

THIS SUBROUTINE CALL IS PLACED BETWEEN EACH SUB-TEST IN THE INST 
SECTION. IT RECORDS THE STARTING ADDRESS OF EACH SUB-TEST AS IT 
BEING ENTERED* IF A SCOPE LOOP IS REQUESTED* IT WILL JUMP TO THE 
START Of THE SU9-TEST THAT THE 5CQPL LOOP IS KLQUESTING. 

(ERROR HALT) 

THIS SUBROUTINE CALL PRINTS THE ADDRESS THAT TAGS THE FAILING 
SUBTEST AND THE CONTENTS OF ALL THE CONTROLLER REGISTERS 
IN FORMAT DESCRIBED IN 6*1 
(TEST FOR CONTROLLER READY) 

THIS SUBROUTINE CALL *AITS A FINITE TIME FOR THE CONTROLLER 
TO GO READY. IF CONTROLLER READY OCCURS BEFORE TIME OUT« EXIT IS 
TO RETURN ADORE SS*2# if TIMEOUT OCCURES BEFORE CONTROLLER READY* 
EXIT IS TO RETURN ADDRESS. 

(WAIT FOR TARE JNlT READY) 

THIS SUBROUTINE CALL WAITS A FINITE TIME FOR THE TAPE UNIT 
TO GO READY. IF TApE UNIT READY OCCURES BEFORE TIMEOUT* EXIT IS 
TO RETURN ADDRESS*?. IF TIMEOUT OCCURES BEFORE TAPE UNIT READY* 
EXIT IS TO RETURN AOORFSS. 

(TEST FOR ROISTER BIT(S) RESET) 

THIS SUBROUTINE CALL WAITS A FINITE TIME FOR THE DESIGNATED 0IT( 
OF THE SPECIFIED REGI^TfR TO GO RESET. IF RESET OF BlT(S) OCCUR 
BEFORE TIMEOUT, EXIT IS TO RETURN AODRESS+2. IF TIMEOUT OCCURS 
BEFORE THE DtSISNATEO BIT(S) RESET* EXIT IS TO RETURN ADDRESS. 
arguments: 

R2 CONTAINS ADDRESS OF HE6ISTER TO BE TESTED 
R3 CONTAINS *1AS«< FOR UlT(S) TO BE TESTED 
K4 CONTAINS DELAY TIMEOUT CONSTANT 
(TEST FOR REGISTER BIT(S) SET) 

THIS SUBROUTINE CALL WAITS A FINITE TIME FOR THE DESIGNATED BIT! 
OF THE SPEC IFIE 0 REGISTER TO GO SET# IF RESET OF DIT(SI OCCUR 
BEFORE TIMEOUT, EXIT IS TO RETURN ADORESS+2. IF TIMEOUT OCCURS 
OfFORE THt DESIGNATED DIT(S) SET, EXIT IS TO RETURN ADDRESS. 

arguments: 

R2 CONTAINS ADDRESS OF REGISTER TO BE TESTED 
R5 CONTAINS MAS< FOR uIT(S) to BE TESTED 
R4 CONTAINS UfLAY TIMEOUT CONSTANT 
(PRINT MESSAGE) 

THIS SUBROUTINE CALL PRINTS AN ASCII 2 MESSAGE WHOSE STARTING AD 
IS CONTAINED IN R2 
(PRINT OCIAL) 

THIS SUBROUTINE CALL PRINTS THE OCTAL VALUE CONTAINED IN R2 
(MAG TAPE TRAP) 

THIS SUBROUTINE CALL IS USEO TO SEWICE UNEXPECTED OR ILLEGAL 
MAG TAPE INTERRUPTS* 

(PRINTOUT ) 

THIS SUBROUTINE CALL TRANSFERS THE LOWER BYTE OF “CHAR" TO THE 
PRINTOUT DEVICE. (USUALLY A TELETYPE) 

(EXCLUSIVE OR) 

THIS SUBROUTINE CALL EXCLUSIVE 0R»S THE CONTENTS OF Rl A R2 
(ROTATE COMPARE) 

THIS SUBROUTINE CALL GENERATES THE CHC CHARACTER FROM THE 
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115 

116 
117 

lie 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 
15? 

153 

154 
135 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 


I CONTENTS OF AO 


THE FOLLOWING SUBROUTINE CALLS EXECUTE COMMONLY USED 

»«MOV M AND •'BIT** INSTRUCTIONS OF THE SPECIFIED FUNCTIONS. 
PWRtLR {POWER CLEAR) 

SETS 01T 12 OF MTC 
WRIl£ (WRITE ONE RECORD) 

INITIATES WRITE COMMAND 
READ (READ ONE RECORD) 

INITIATES READ COMMAND 
WPEUF (WRITE END OF FILE) 

INITIATES WRITE FILE MARK 
REW14D (REWIND TAPE) 

INITIATES REWIND OF TAPE UNIT 
SPACEF (SPACE FORWARD) 

INITIATES SPACE FORWARD COMMAND 
SPACED (SPACE BACKWARDS) 

INITIATES SPACE BACKWARDS COMMAND 
SELECT (SELECT TAPE UNIT) 

SELECTES TAPE UNIT TO OE TESTED 
WBUFCA (WHITE BUFFER TO CA> 

SETS CA TO S1ART OF WHITE BUFFER 
RBUFCA (HEA0 BUFFER To CA) 

SETS CA TO START OF READ BUFFER 
MIN13C (MINUS ONE TU BC) 

SETS BC TO MINUS ONE 
MIN33C (MINUS THREE TO BC) 

SETS BC TO MINUS THREE 
MIN43C (MINUS FOUR 10 30 

SETS BC TO MINUS FOUR 
TSTLOF (TEST FUR EOF) 

TESTS FUR FIlE MARK DETECTION 

6. ERRORS 


6.1 ERROR PRINTOUT FORMAT 
WITH SW13 = 0 < OR DOWN) 
PC 


XXXXXX 

PC 

STATUS 

COMAND 

BYTE 

CA 

DATA B 
READ L 
TEMP 
CRC CAL 


THE FOLLOWING PRINTOUT WILL APPEAR ON AN CR ROK 
STATUS COMAND BYTE CA DATA B ftEAO L TEMP CRC CAL 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 

= address of test where error occureo 

= CONTENTS OF STATUS REGISTER AT TIME OF ERROR 
s CONTENTS OF COMMAND REGISTER AT TIME OF ERROR 
= CONTENTS OF byte COUNTER AT TIME OF ERROR 
s CONTENTS OF CURRENT MEMORY AOURESS AT TIME OF ERROR 

= contents of data buffer at time of error 

= CONTENTS OF TUI0 REGISTER AT TIME OF ERROR 
= CONTENTS OF ADDRESS »1EMP» USED BY SOME TESTS 


= CRC CHARACTER CALCULATED (USEFUL ONLY FOR CRC TEST) 


6.2 


NOTE THAT NOT ALL OF THE INFORMATION PRINTED IS INTENDED TO BE 
USEFUL FOR EVERY TYPE OF ERROR t THIS IS SIMPLY A STANDARD ERROR 
REPORT FOR ALL ERRORS. THE OPERATOR MUST REFER TO THE PROGRAM 
LISTING AT THF ADDRESS Of THE ERROR FOR A DESCRIPTION OF THE 
CAUSE OF THE ERROR! IT IS THEN UP TO HIM TO DETERMINE WHICH 
OF THE INFORMATION IS USEFUL. 

ERROR RECOVERY 

WITH SW15=1 OR jp THE PROGRAM WILL HALT ON AN ERROR, DEPRESS 
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172 

1 

CONTINUE. SWITCH TO RESTART TEST. 

173 

17 * 

RESTRICTIONS 

174 

17.1 

starting restriction 

175 

t 

BEFORE STARTING PROGRAM THE OPERATOR MUST MAKE CERTAIN THAT ‘ 

1/6 

1 

TRANSPORT IS “04-LINE*' ANQ AT “LOAD POINT". 

177 

17.2 

operational restrictions 

176 

1 

manual INTERVENTION TEST MUST BE PERFORMED ON EACH PASS THRU 

179 

t 

THE PROGRAM UNLESS INHIBITED WITH SWU-1 (OR UP). 

180 

Id. 

MISCELLANEOUS 

lfll 

18.1 

EXECUTION TIME 

162 

1 

WITH MANUAL INTERVENTION TEST INHIBITED IT TAKES 1 MINUTE 

183 

1 

FOR ONE PASS THRU PROGRAM. MANUAL INTERVENTION TEST IS 

184 

1 

OPERATOR DEPENDENT BUT ShOULO TAKE APPROXIMATELY 2 MINUTES. 

185 

19* 

PROGRAM DESCRIPTION 

166 

19.1 

LISTING 

167 

1 

STATUS AND COMMAND REGISTER BIT ASSIGNMENTS 

188 



189 

1 

COMMAND REGISTER 

190 

115 

ERROR (ERR) 

191 



192 

(14 

DEN 8 00 s LO OENS 7 TRACK 10 * HI OENS 7 TRACK 

193 

113 

DEN 5 01 = LO DENS 7 TRACK u a CORE DP 7 TRACK 

194 

112 

POWCR CLEAR (PWRCLR) 

195 



196 

111 

PARITY 0 = OOP 1 = EVEN (EVP) 

197 

no 

UNIT SEL. BIT 2 (FAOl) 

198 

19 

UNIT SEL. BIT 1 (Si) 

199 



200 

18 

UNIT SEL. BIT 8 (SO) 

201 

17 

CONTROL UNIT READY (CUR) 

202 

16 

INTERRUPT ENABLE (XEN) 

203 



204 

15 

ADDRESS BIT 17 (A0l7> 

205 

14 

ADDRESS BIT 16 (A016) 

206 

13 

FUNCTION BIT 2 Q00 = OFF LINE 100 « SPACE FORWARD 

207 

1 

001 = READ 101 « SPACE REVERSE 

208 



209 

12 

FUNCTION BIT 1 010 = WRITE 110 « WRITE XIRG 

210 

11 

FUNCTION BIT 0 011 = WRITE EOF 111 * REWInQ 

211 

10 

GO 

212 



213 

I 

STATUS REGISTER 

214 



215 

115 

ILLEGAL COMMAND |ILC) 

216 



217 

114 

END OF FILE (EOF) 

218 

113 

CORRECTABLE PARITY ERROR (PHASE ENCODED ONLY) (CRE) 

219 

112 

PARITY ERROR (PAE) 

220 



221 

111 

BUS GRANT LATE (BGL) 

222 

110 

ENO OF TAPE (EOT) 

223 

19 

RECORD LENGTH £*ROR (RLE) 

224 



225 

18 

BAD TAPE ERROR (BTC) 

226 

17 

NON EXISTENT MEMORY (NXM) 

227 

16 

SELECT REMOTE (SELR) 

228 
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229 



IS 

BEGINNING OF TAPE <BOT) 


250 



14 

7 CHANNEL (CHI 


251 



13 

SETTLE 

DOWN (SOWN) 


252 







233 



12 

WRITE 1 

LOCK < WHL > 


234 



11 

REWIND 

STATUS (AWS) 


235 



10 

TAPE UNIT RFAOY CTUR) 


236 



1 **+*«*********ASSEMBLY list ING* *************** 

237 







238 


000000 


♦ ENAEil 

ADS 


239 




.enabl 

AMA 



240 





.NLIST TTM 


241 







24 2 


0000UD 



. = 0 


243 


0000*0 



.REPT 20 


244 





.♦2 


245 





halt 


246 





,ENOK 


247 


0000^4 



.-34 


246 

000034 

011516 



TRAP34 


249 

000036 

0003*0 



340 


250 


000060 



.=60 


251 


000044 



.REPT 44 


252 





MTTRP 


253 





340 


254 





. LNOR 


255 







256 


10 44 U 0 



HLT =104400 . 


257 


104402 



SCOPE =104402 


258 


1044 U 4 



TSTCUR=104404 


259 


10440b 



TSTR6S=104406 


260 


104410 



TST R(SR = 104410 


261 


104412 



PR T MSG = 104412 


262 


104414 



PWf<CLR = l044l4 


263 


104416 



WHITE =104416 


264 


1044*0 



READ =104420 


265 


1044*2 



WREOF =104422 


266 


1044*4 



RE WIND = 10 44 24 


267 


1044*6 



SPACER=104426 


266 


104450 



SPACUJ=104430 


269 


104452 



SELECT = 104432 


270 


1044^4 



WDUF C A = 10 4 4 34 


271 


104436 



RUUFCA=104436 


272 


1044*0 



MI N1BC = 104440 


273 


1044*2 



NlN3iiC = l 04442 


274 


104444 



h I N4tlC = 104444 


275 


1044*6 



TSTf:OF = l04446 


276 


1044^0 



WAITTR=10445Q 


277 


104402 



XCLOR =104452 


276 


104404 



ROH rtf* = 104454 


279 


104466 



PR fOC T = 104456 


280 


104460 



PR T OUT = 104460 


281 







282 


17/5/0 



SR=177570 


283 


1777/6 



CC=177776 


264 


0002*0 



NUP = *40 


265 


0007/6 



BUFF=776 


I TRAPPED TO PREVIOUS ADDRESS 


I I SETUP ALL UNUSEO INTERRUPT VECTORS 


I TRAP SUBROUTINE TABLE EQUATES 
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286 


oooouo 



RQ=XO 


267 


000061 



R1=*I 


286 


000002 



R2 = X2 


289 


000005 



R3=X3 


290 


0000^4 



R4=5S4 


291 


0000u5 



K 5 - 5» 5 


292 


000006 



SP = X6 


293 


OOOOO 1 



rc=*7 


29*1 


Q002UO 



, = 200 


295 

000200 

0001^7 

001160 


JMP START 


296 


0 010 u Q 



.=1000 


297 

001000 

172520 


MTNADj 

172520 

INORHAL mag tape address 

298 

001002 

172720 


mtaao: 

1/2720 

1 ALTERNATE MAG TAPE ADDRESS 

299 

001004 

0002* 4 


mtnv : 

224 


300 

001006 

000226 


mtns; 

226 


301 

001010 

000200 


mtav: 

260 


302 

001012 

000262 


mTas: 

262 


303 

001014 

000224 


MTV! 

224 

1 INTERRUPT VECTOR 

309 

001016 

0002*6 


hTvs: 

226 

lINTERRUPT STATUS 

305 

001020 

172520 


htss 

172520 

ISTATUS REGISTER 

306 

001022 

172522 


mtc; 

172522 

ICOMMAND REGISTER 

307 

001024 

172524 


bC; 

172524 

IBtTE COUNT 

308 

001026 

172526 


ca: 

172526 

tCUHKENT MEMORY AOORESS 

309 

001030 

17253Q 


mtd: 

172530 

1 OAT A BUFFER 

310 

001032 

1725^2 


MTrtOs 

172532 

ITU10 READ LINES 

311 

001034 

1775^6 


TOBKS 

177566 


312 

001036 

1775^4 


TCSKS 

177564 


313 

001040 

oooooo 


iotst: 

0 


31*4 

0010*42 

oooouo 


TMINFLS 

0 


315 

001044 

oogouo 


tempi 

0 


316 

001046 

OOOOUO 


tEmppi 

0 


317 

001050 

oooouo 


TtMPSJ 

0 


318 

001052 

OOOOUO 


CRxOfu; 

0 


319 

001054 

OOOOOO 


cnrotu 

0 


320 

001056 

OOOOUO 


CKX0H2I 

0 


321 

001060 

oooouo 


CRR0T21 

0 


322 

001062 

OOOOUO 


CNX0R3! 

0 


323 

001Q64 

oooouo 


C H R 0 f 31 

0 


32*4 

001066 

oooouo 


CHX0R4J 

0 


325 

001070 

oooouo 


ckroth: 

0 


326 

001072 

OOOOUO 


CMC WR T * 

0 


327 

001074 

OOOOUO 


oct: 

0 


328 

001076 

OOOOUO 


char : 

0 


329 

001100 

oooouo 


PR INTI 1 

0 


330 

001102 

001330 


returns 

BEGIN 

t ADDRESS OF LAST TEST 

331 

001104 

OOOOUO 


MIPS 

0 

IMAG TAPE PRIORITY BUS LEVEL 

332 

001106 

oooouo 


tcsls 

0 

fSELECT COMMAND 

333 

001110 

oooouo 


ktpm: 

0 

IMAG TAPE PRIORITY BUS LEVEL MINUS ONE 

334 





1 command cooes 

TABIE 

335 

001112 

oooouo 


TCOL; 

0 

1 OFF LINE COMMAND 

336 

001114 

OOOOUO 


TCrD: 

0 

IKtAO COMMAND 

337 

001116 

OOOOUO 


tcwT : 

0 

IwRITE COMMAND 

338 

001120 

OOOOUO 


tCwf : 

0 

IWRITE FILE MARK COMMAND 

339 

001122 

OOOOUO 


TCSF ; 

0 

ISPACL FORWARD COMMAND 

340 

001124 

oooouo 


tcrs: 

0 

ispace reverse command 

34 1 

001126 

OOOOUO 


TCwE l 

0 

IWKITE WITH EXTENDED GAP COMMAND 

342 

001130 

OOOOUO 


TCRW: 

0 

•REWIND COMMAND 



HEADINGS ; 
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LIME 

r 

0 

n 

CONTE r 4 T t 

S'f M 

i n 5 r 

O E' 11 t v 

1 I i‘ -'t A K i L ii 

343 

001132 

OOOObO 



USLtNi 

0 



344 

001134 

001160 



SAVES 

•-•420 

• 

1 TEMP STOP AGE For tape registers for ERROR PRINT 

345 

001160 




STARTS 




346 

001160 

012706 

000776 



MOV 

4BUFF «SP 

ireset stack 

347 

001164 

012702 

012711 



MOV 

4MSG0«R2 


34a 

001170 

104412 




PRTMSG 


IPKINT HESSAGE 1 H 3R2 

3*49 

001172 

oooooo 




halt 



350 






IRESET 

CYCLE COUNTER 

351 

001174 

11273/ 

000060 

014552 


Movn 

460 »MSG13+11 


362 

001202 

11273/ 

000060 

014553 


MOVB 

46Q.MSG13U2 


353 

001210 

11273/ 

000061 

014554 


MO VB 

»|61 # MSG13+13 


354 






l MODlFy HAG TAPE HEGISTEftS ADDRESS ACCORDING TO Su 9 

355 

001216 

0127U2 

001020 



MOV 

4MTS,R2 


356 

001222 

013701 

001000 



MOV 

M T N A 0 , R1 


357 

001226 

03273/ 

000020 

177570 


BIT 

420,SR 

IIS sw 4 SET? 

356 

001234 

001402 




BEG 

TAMO 

1 NO* GENERATE NORMAL HAG TAPE ADDRESSES 

359 

001236 

0137o 1 

001002 



MOV 

mtaad.ri 

1 YES, GENERATE ALTERNATE MAG TAPE ADDRESSES 

360 

001242 

0l0l<-2 



tamos 

MOV 

Rl*<R2>+ 


361 

001244 

062701 

000002 



ADD 

42. R1 

igenerate next adderss 

362 

001250 

02022/ 

001032 



CMP 

R2 * WMTRO 


363 

001254 

0037/2 




BEE 

TAMO 


364 






iMOOIFy MAG TAPE INTERRUPT VECTOR ACCORDING TO $W 4 

365 

001256 

03273/ 

000020 

177570 


BIT 

4 2 0, SR 

IIS SW 4 SET? 

36b 

001264 

001415 




BEO 

MTVN 

1NO« GENERATE NORMAL INTERRUPT VECTOR 

3b 7 

001266 

01373/ 

001010 

001014 


MOV 

MTAV.MTV 

iyes, gen alternate interrupt vector 

366 

001274 

013737 

001012 

001016 


MOV 

MTAS.MTVS 


369 

001302 

0127/7 

011450 

177474 


MOV 

4MTTRP,£>MTNV 


370 

001310 

012737 

000340 

001006 


MOV 

434o.MTNS 


3/1 

001316 

000414 




6R 

BEGIN 


372 

001320 

013737 

001004 

001014 

mtvns 

MOV 

MTNV,MTV 


373 

001326 

01373/ 

001006 

001016 


MOV 

MTNS.MTVS 


374 

001334 

0127/7 

011450 

177446 


MOV 

4M1TRP. aiiTAV 


375 

001342 

0127/7 

000340 

177442 


MOV 

434o,<3MlAS 


376 

001350 

0127J7 

001360 

001102 

BEGINS 

MOV 

4BE6IN,RETURN 1 SET UP RESTART OF PROGRAM 

377 

001356 

012706 

000776 



MOV 

4BUFF,SP 

ireset stack 

376 

001362 

00503/ 

001042 



CLR 

TMTNFL 

1 CLEAR TAPE MOTION FLAG? 

379 

001366 

005037 

177776 



clr 

cc 

ISET PROCESSOR PRIORITY TO 0 

360 

001372 

005037 

000036 



CLR 

&436 

1 SET TRAP PRIORITY TO 

381 

0 J13 76 

0127/7 

011450 

177410 


MOV 

4MTTRP * SMTV 

1 SET UP ILLEGAL INTERRUPT RETURN 

3b2 

001404 

01273/ 

000340 

001016 


MOV 

-4 34 0 ,MT VS 

1 SET INTERRUPT VECTOR C - (oj H1VS 

383 

001412 

005037 

001100 



CLR 

PRINT1 

unitialize error printout heading 

384 

001416 

00503/ 

001072 



CLR 

CRCWRT 

unitialize crc calculated for printout 

385 

001422 

00503/ 

000006 



CLR 

6 

UNITIALIZE ERROR TRAP VECTOR 

386 






(CALCULATE HAG TAPE 

PRIORITY BUS 4 

387 

001426 

013700 

177570 



MOV 

SR .RO 


388 

001432 

0427 0 

177437 



BIC 4177437,RO 

iC heck switches 

389 

001436 

01003/ 

001104 



MOV 

RO.MTP 

ISTORC MAG TAPE PRIORITY BUS 4 

390 

001442 

162700 

000040 



SUB 

440,RO 

lOECRlMLNT nUS 4 

391 

001446 

01003/ 

001110 



MOV 

RO.MTPM 

ISTORE MAG TAPE BUS LEVEL MINUS ONE 

392 






t GC DERATE MAG TAPE COMMAND TABLE 

393 

001452 

0137O0 

177570 



MOV 

SR, HO 


394 

001456 

042700 

174377 



BIC 

4174377,RO 


395 

001462 

01003/ 

001106 



MOV 

RO.TCSL 

ISTORE SELECT COMMAND 

396 

001466 

052700 

060001 



BIS 

460001,RO 


397 

001472 

012 71 

001112 



MOV 

4TCOL.R1 


398 

001476 

0300^1 




MOV 

RO,(Rl>* 

ISTORE NEXT COMMAND 

399 

001500 

062700 

000002 



ADD 

42 ,H0 
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400 

© 

© 

►*» 

t* 

o 

JS- 

0227U1 

001132 


CMP 

KTCOL+20 «R1 ITEST FOR TABLE COMPLETION 

401 

001510 

0013/2 



BNE 

••12 ILOOP IF NOT COMPLETE 

402 







403 





I **** 

REGISTERS TESTS ♦*** 

404 







405 





(****«****************************«***********«*«* ********************* 

406 





ITEST AtL BITS 

OF COMMAND REGISTER (EXCEPT CU READY* BIT 7>TO BE CLEARED 

407 

001512 

1044U2 



SCOPE 


408 

001514 

000005 



RESET 


409 

001516 

0327/7 

177577 

177276 

BIT 

#177577,3MTC 

410 

001524 

001401 



beo 

• ♦4 

411 

001526 

104400 



HLT 

ierror* init didn’t Clear command register 

412 





i***»»»»»»*»«*«»»**»**»********»i«****»*«*t»**«*»* »•*•**•*»**•**•**•»«» 

413 





1 TEST BITS 7-13.15 OF STATUS REGISTER To BE CLEARED AFTER INIT 

414 

001530 

104402 



SCOPE 


41b 

001532 

000005 



RESET 


416 

001534 

0327/7 

137600 

177256 

BIT 

4137600.biMTS 

417 

001542 

001401 



bio 

.♦4 

418 

001544 

104400 



ml r 

(ERROR • INIT DIDN’T CLEAR PROPER BITS IN STATUS 

419 





!***»***«***************************** ************ ********************* 

420 





ITEST UInIT TO 

clear byte record count 

421 

001546 

1044 U 2 



SCOPE 


422 

001550 

000006 



RESET 


423 

001552 

0057/7 

177246 


T3T 

aoc 

424 

001556 

001401 



BEG 

• ♦4 

425 

001560 

104400 



HLT 

(ERROR* INIT DIDN’T CLEAR BYTE COUNT 

426 





|****************#*****#******************9******* ********************* 

427 





(TEST IMT TO 

CLEAR CURRENT MEMORY ADDRESS REGISTEK 

428 

001562 

104402 



SCOPE 


429 

001564 

000005 



RESET 


430 

001566 

0057/7 

1772J4 


TST 

SCA 

431 

001572 

001401 



BEQ 


432 

001574 

104 4 U 0 



HLT 

(ERROR.INIT DIDN’T CLEAR CURRENT MEMORY ADDRESS 

433 





$*********«**************************«************ ********************* 

434 





(TEST INIT TO 

clear data buffer 

435 

001576 

1 OH 40 2 



SCOPE 


436 

001600 

000003 



RESIT 


437 

001602 

0057/7 

177222 


TST 

3MTD 

438 

001606 

0014U1 



BEQ 

.♦4 

439 

001610 

10H4 0 0 



HLT 

(ERROR, INIT OlDN’T CLEAR fcATA BUFFER 

440 





I************************* ************************ ********************* 

441 





(TEST CU REAUY 

IBIT 7 COMMAND HEG1STERJ TO BE SET ON INIT. 

442 

001612 

104402 



SCOPE 


443 

001614 

0000*0 



RESET 


444 

001616 

1057/7 

177200 


TSTB 

SMTC 

445 

001622 

1004 U 1 



BMl 


446 

001624 

1044t»0 



HLT 

1EKHOR, INIT OION'T SET CU READY 

447 





1 ************************************************* ********************* 

448 





ITEST BIT 14 OF TUlO READ LINES TO BE CLEaREO BY INIT 

449 

001626 

104402 



SCOPE 


450 

001630 

000005 



RESET 


451 

001632 

0327/7 

040000 

177172 

BIT 

# 40000 *aMTRD 

452 

001640 

001401 



BEQ 

.♦4 

453 

001642 

104400 



HLT 

(ERROR, INIT FAILED TO CLEAR BIT 14 OF HTRO 

454 





1******** ***************************************** ********************* 

455 





ITEST COMMAND 

REGISTER (EXCEPT CU REAOY.BIT 7JT0 BE CLEARED BY POWER CLEAR 

456 

001644 

1044 0 2 



SCOPE 




WAIN 
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457 

001646 

104414 

458 

001650 

032777 

459 

001656 

001401 

460 

001660 

1044U0 

461 



462 



463 



464 

001662 

104402 

465 

001664 

104414 

466 

001666 

0327/7 

467 

001674 

001401 

468 

001676 

104400 

469 



470 



471 

001700 

1044 U 2 

472 

001702 

104414 

473 

001704 

005777 

474 

001710 

001401 

475 

001712 

1 Oh 4 o 0 

476 



477 



478 

001714 

104402 

479 

001716 

104414 

480 

001720 

0057 7 7 

481 

001724 

001401 

482 

001726 

104400 

483 



464 



48b 

001730 

104402 

486 

001732 

104414 

467 

001734 

005 7 7 7 

468 

001740 

001401 

489 

001742 

104Hw0 

490 



491 



492 

001744 

1C44U2 

493 

001746 

104414 

494 

001750 

105777 

495 

001754 

100401 

496 

001756 

1044U0 

497 



498 



499 

001760 

104402 

5U 0 

001762 

104414 

501 

001764 

0327 77 

502 

001772 

001401 

503 

001774 

104400 

504 



505 



506 

001776 

1 04402 

507 

002000 

0127 7 7 

508 

002006 

1227/7 

509 

002014 

001401 

510 

002016 

104400 

511 



512 



513 

002020 

104402 


177577 


137600 


177114 


177102 


177070 


177046 


040000 


000016 

000216 


177144 


177124 


177040 


177014 

177006 


PWRCLR 

BIT 8177577.8MTC 

0EQ .+4 

HLT (ERROR, POWER CLEAR DI0N*T CLEAR COMMAND REGISTE 

!************«************************************ ********************* 

i test bits 7 - 13 . 15 of status register to be cleared by power clear (bit 

SCOPE 

PWRCLR 

BIT 8137600.SMTS 

BEG .*4 

HLT lERROR, POWER CLEAR OION*T CLEAR PROPER BITS IN ££0 

I*********.*************************************** ********************* 

ITEST POWER CLEAR (BIT 12) TO CLEAR BYTE RECORD COUNT 
SCOPE 
PwRCLR 
TST 8BC 

BEG .*4 

HLT |ERROR« POWER CLEAR OION*T CLEAR BYTE COUNT 

I******************************************* ****** ********************* 

ITEST POWER CLEAR |BIT 12) TO CLEAR CURRENT MEMORY ADDRESS REGISTER 
SCOPE 
PWRCLR 
TS1 3CA 

BEG .44 

HLT 1 ERROR. POWER CLEAR DlDN«T CLEAR CURRENT ADO. RED 

l*****«**********************************«******** ********************* 

ITEST POWER CLEAR (BIT 12) TO CLEAR DATA BUFFER 
SCOPE 
PWRCLR 
TST 3MTD 

BEQ .44 

HLT I ERROR, POyER CLEAR DION*T CLEAR DATA BUFFER 

I************************************************* ********************* 

ITEST CU READY (BIT 7 COMMANO REGISTER) TO BE SET &Y POWER CLEAR 
SCOPE 
PWRCLR 
TST8 3MTC 

UMi .44 

HLT (ERROR, POwER CLEAR 0IDN«T SET CO READY 

I************************************************* ********************* 

tTEST BIT 14 OF TUJO HEAD LINES TO BE CLEaHO BY POWER CLEAR 
SCOPE 
PwRCLR 

BIT 840000,3MTRD 

BEG ,44 

HLT (ERROR, POWER CLEAR FA * LED TO CLEAR BIT14 OF 7UID RE6 

l******.,«**,****************,******************** ********************* 

(TEST FUNCTION GITS (1.2,3) OF COMMAND REGISTER CAN BE SET 

SCOPE 

MOV 816.3MTC 

CMPB 8216,3MTC 

BEG ,44 

HLT (ERROR, CU READY AND ALL FUNCTION BITS NOT SET 

I ************************************************* ********************* 

♦TEST FUNCTION BITS (1.2.3) OF COMMAND REGISTER CAM BE CLEARED 

SCOPE 
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514 

002022 

0527 n 

000016 

176772 

515 

002030 

0427/7 

000016 

176764 

516 

002036 

032777 

000016 

176756 

517 

002044 

001401 



516 

002046 

10440 0 



519 





520 





521 

002050 

104402 



522 

002052 

0127 i 7 

000002 

176742 

523 

002060 

1227/7 

000202 

176734 

524 

002066 

001401 



525 

002070 

104400 



526 

002072 

1 0 4 4 U 2 



527 

002074 

0127' 7 

000004 

176720 

526 

UU2102 

1227/7 

000204 

176712 

529 

002110 

0 01 4 U 1 



530 

002112 

104400 



531 

002114 

104402 



532 

002116 

0127// 

000006 

176676 

533 

002124 

1227/7 

000206 

176670 

534 

002132 

001401 



535 

002134 

10 4 4 u 0 



536 

002136 

104402 



537 

002140 

012/// 

000010 

176654 

536 

002146 

1227/7 

000210 

176646 

539 

002154 

0 0140 1 



540 

002156 

104 4 o 0 



541 

002160 

1044 U 2 



542 

002162 

0127/7 

000012 

176632 

543 

002170 

1227/7 

000212 

176624 

54 4 

002176 

001401 



545 

002200 

104 4 o 0 



546 

002202 

1044^2 



547 

002204 

0127/7 

000014 

176610 

548 

002212 

1227/7 

000214 

176602 

54 9 

002220 

00140 1 



550 

0U2222 

1 04 4 ly 0 



551 

002224 

104402 



552 

002226 

0127/7 

000016 

176566 

553 

002234 

1227/7 

000216 

176560 

554 

002242 

001401 



555 

002244 

104400 



556 





557 

002246 

1044U2 



556 





559 

002250 

0127/7 

000060 

176544 

560 

002256 

1227/7 

000260 

176536 

561 

002264 

001401 



562 

002266 

1044U0 



563 





564 





565 

002270 

1044U2 



566 

002272 

0527/7 

000060 

176522 

567 

002 300 

0427/7 

000060 

176514 

566 

002306 

0327/7 

000060 

176506 

569 

002314 

001401 



570 

002316 

104400 




1-9 


BIS # 16 .aMTC 

BIC #l6*aMTC 

BIT # 16 ,a«TC 

BEQ .+4 

HLT I ERROR. ALL FUNCTION BITS MOT CLEARED 

|**«*.,*.***«.***.**** + ***.***>**«* + **.**« + ****. + *. ** ******************* 

iTEST FUNCTIONS BITS U»2*3*) OF COMMAND REGISTER CAN BE SET AND CLEAREO 
SCOPE 

MOy H2 * ff'MTC 

CMPB #202 * 3MTC 

BEQ .*4 

HLT lERROR • FUNCTION NOT =001 READ) 

SCOPE 

MOV #4,S>MTC 

CMPB #204*QMTC 

BEQ ,44 

HLT (ERROR* FUNCTION NOT *010 WRITE) 

SCOPE 

MOV #6«SMTC 

CMPB #206 * 3MTC 

BEQ .44 

HLT (ERROR, FUNCTION NOT =011 WRITE EOF) 

SCOPE 

MOV #10, SMTC 

CMPO #2X0.3MTC 

BEQ .44 

HLT (ERROR, FUNCTION NOy =100 SPACE FORWARD) 

SCOPE 

MOV #12,SMTC 

CMPB #212 * 3MTC 

BEQ .44 

HLT (ERROR. FUNCTION NOT *101 SPACE REVERSE) 

SCOPE 

MOV #14,SMTC 

CMPB #214 * 3MTC 

BEQ .44 

HLT lERROR, FUNCTION NOT allO WRITE XIRG) 

SCOPE 

MOV #16,SMTC 

CMPB #216,3MTC 

BEQ .44 lERROR, FUNCTION NOT *111 REWIND) 

HLT 

|*******«***«************************************* ********************* 

SCOPE 

iTEST ADDRESS BITS (4.5) OF COMMAND REGISTER CAN 0L SET 
MOV #60 * 2MTC 

CMPB #260«3MTC 

BEQ .44 

HLT (ERROR* CU READY AND AQOROS BITS NOT SET 

!****«**.V**************************************** *444444 ************** 
(TEST ADDRESS BITS (4*5) OF COMMAND REGISTER CAN BL CLEARED 

SCOPE 

BIS #60 * oiMTC 

BIC #6 0 ,oiMTC 

BIT #6Q.SMTC 

BEQ .44 

HLT 


lERROR, AOORESS BITS NOT CLEARED 
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571 





1 ************************************************* ********************* 

572 





• TEST 

ADDRESS 

BITS (4•5 16 ) OF COMMAND REGISTER CAN BE SET AND CLEARED IN RLG 

573 

002320 

104412 




SCOPE 


574 

002322 

0127/7 

000020 

176472 


MOV 

#2Q,3MTC 

575 

002330 

1227/7 

000220 

l?64t>4 


CMPB 

#220«3MTC 

576 

002336 

001401 




bEQ 

.♦4 

577 

OO 234 O 

IO 44 U 0 




HLT 

•ERROR ADDRESS BITS NOT *z 

576 

002342 

1044u 2 




SCOPE 


579 

002344 

012777 

000040 

176450 


MOy 

*40,S>MTC 

56 0 

002352 

1227/7 

000240 

176442 


CMPB 

024o « 3MTC 

561 

002360 

001401 




BEQ 

• + 4 

562 

002362 

104400 




HLT 

•ERROR* ADDRESS BITS NOT * 2 

563 

002364 

104402 




SCOPE 


564 

002366 

U127/7 

000060 

176426 


MOV 

#60•SMTC 

565 

002374 

1227/7 

000260 

176420 


CMPB 

#26o«3MTC 

566 

002402 

0 01 4 u l 




BEQ 

.+4 

567 

002M 04 

104400 




HLT 

•ERROR, ADDRESS BITS NOT s l 

566 





I ************************* ************************ ********************* 

569 





ITEST 

UNIT SELECT BITS (0*9,10) OF COMMaNO REGISTER CAN BE SET 

590 

002406 

1 044U2 




SCOPE 


591 

002410 

0127/7 

003400 

176404 


MOV 

#3400,3MTC 

592 

002416 

0227 /7 

003600 

176376 


CMP 

#3600.3MTC 

593 

002424 

QO140 i 




BEQ 

• ♦4 

594 

002426 

104400 




HLT 

•ERROR* CU READY AND ALL U^lT SELECT BITS NOT SET 

595 





t*******+**t******#**#************#*********«***** ********************* 

596 



' 


• test 

UNIT SLLECT BITS (8.9*10) OF COmMaNO REGISTCR CAN DE CLEARED 

597 

002430 

104402 




SCOPE 


596 

002432 

0527/7 

003400 

176362. 


BIS 

#34 00* 3MTC 

599 

002440 

04277/ 

003400 

176354 


BIC 

#34oo,a«rc 

600 

002446 

0327/7 

003400 

176346 


BIT 

#34O0*«)MTC 

601 

002454 

0014O1 




BEQ 

.♦4 

602 

002456 

104400 




HLT 

1 ERROR« UNIT SELECT BITS NOT CLEARED 

603 





I************************************************* ********************* 

604 





• TEST 

UNIT SELECT BITS (8,9*10) OF COMMAND REGISTER CAN eE SET AND CLEARED 

605 

002460 

104402 




SCOPE 


606 

002462 

0127/7 

000400 

176332 


MOV 

#400.SMTC 

607 

002470 

0227/7 

000600 

176324 


CMP 

#600 *£MTC 

600 

002476 

0014oi 




BEQ 

.♦4 

609 

002500 

104400 




HLT 

•ERROR* UNIT SELECT NOT =001 

610 

002502 

1044 u 2 




SCOPE 


611 

002504 

0127/7 

001000 

176310 


MOV 

#1000* b)MTC 

612 

002512 

0227 /7 

001200 

176302 


CMP 

#l2oO«QHTC 

613 

002520 

001401 




BEQ 

• ♦4 

614 

002522 

104400 




HLT 

•ERROR, UNIT SELECT NOT *010 

615 

002524 

104402 




SCOPE 


616 

002526 

0127/7 

001400 

176266 


MOV 

#1400 * SMTC 

617 

002534 

0227 il 

001600 

176260 


CMP 

#1600,3MTC 

616 

002542 

001401 




BEQ 

.♦4 

619 

002544 

l044 U 0 




HLT 

•ERROR, UNIT SELECT NOT «011 

620 

002546 

1044C 2 




SCOPE 


621 

002550 

0127/7 

002000 

176244 


MOV 

#2000•3MTC 

622 

002556 

0227/7 

002200 

176236 


CMP 

# 2200 .SMTC 

623 

002564 

001401 




BEQ 

• 4-4 

624 

002566 

10440 0 




HLT 

•ERROR, UNIT SELECT NOT »100 

625 

002570 

104402 




SCOPE 


626 

002572 

0127/7 

002400 

176222 


MOV 

#2400,3MTC 

627 

002600 

0227 / 7 

002600 

176214 


CMP 

#2600 * 3MTC 
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626 

002606 

0014UI 



BEG 

.♦4 

629 

002610 

104400 



hlt 

(ERROR, UNIT SELECT NOT *lul 

630 

002612 

104 4 0 2 



SCOPE 


631 

002614 

012777 

003000 

176200 

MOV 

H3000t»MTC 

632 

002622 

0227 7 7 

003200 

176172 

CMP 

43200 * 3MTC 

633 

002630 

001401 



BEQ 

• ♦4 

634 

002632 

104400 



HLT 

(ERROR, UNIT SELECT NOT = 110 

635 

002634 

104402 



SCOPE 


636 

002636 

0127 7 7 

003400 

176156 

MOV 

43400,SMTC 

637 

002644 

022777 

003600 

176150 

CMP 

436f)Q ♦ 3MTC 

6 50 

002652 

0014 0 1 



BEQ 

• +4 

639 

002654 

104400 



HLT 

(ERROR, UNIT SELECT NOT *111 

640 






641 





iTEST PARITT BIT (bit id can be set 

642 







643 

002656 

104402 



SCOPE 


644 

002660 

0527/7 

004000 

176134 

BIS 

44000,3MTC 

64 5 

002666 

0327/7 

004000 

176126 

BIT 

44000,3MTC 

646 

002674 

001001 



BNE 

• ♦4 

64 7 

002676 

10 4 4 U 0 



HLT 

(ERROR, PARITY NOT SET 

640 





|****************************««**4 **************** *****♦*»**«*****♦*♦«♦ 

649 





ITEST PARITY BIT (BIT 11) CAN BE CLEARED 

660 

002730 

104402 



SCOPE 


651 

002702 

0527 7 7 

004000 

176112 

BIS 

44000,3M1C 

t>52 

002710 

0427 7 7 

004000 

176104 

eic 

R4000,oJMTC 

653 

002716 

03277 7 

004000 

176076 

BIT 

44000,3MTC 

654 

002724 

001401 



BEO 

.♦4 

655 

002726 

104400 



HLT 

(ERROR, PARITY BIT NOT CLEAREO 

656 






657 





iTEST DENSITY 

BITS (13*14) OF COMMAND RE6I$TER CAN BE SET 

650 

002730 

104402 



SCOPL 


659 

002732 

012777 

060000 

176062 

MOV 

460000,3MTC 

66 Q 

002740 

0227 7 7 

060200 

1 7b0 54 

CMP 

460200 , cDMTC 

661 

002746 

001401 



BEQ 

.♦4 

662 

002750 

104400 



HLT 

(ERROR, CU READY AND DENSITY BITS NOT SET 

66 3 





14 + * + * + *** + + + * + * + + ** + + ** + ** + + + + ** + * + * + ** + + + + + ** + + * »* + ***««*>»*******«*«* 

664 





iTEST DENSITY 

BITS (13,14) OF COMMAND REGISTER CAN OE CLEARED 

665 

002752 

104402 



SCOPE 


666 

002754 

05277 7 

060000 

176040 

BIS 

460000,3MTC 

667 

002762 

042777 

060000 

176032 

BIC 

460nOO,SMTC 

660 

002770 

0327 7 7 

060000 

1 76024 

BIT 

460000,3HTC 

669 

002776 

001401 



BEQ 

.♦4 

670 

003000 

10 4 4 0 0 



HLT 

BITS (13,14) OF COMMAND REGISTER CAN B t SET AND CLEAREO IN REG 

671 





ITEST DENSITY 

672 

003002 

104402 



SCOPE 


673 

003004 

0127/7 

020000 

176010 

MOV 

420000,SMTC 

674 

003012 

0227 /7 

020200 

176002 

CMP 

420200,DMTC 

67b 

003020 

00140 1 



BEQ 

.♦4 

676 

003022 

104400 



HLT 

(ERROR, DENSITY NOT =01 

677 

003024 

3 04 4 0 2 



SCOPE 


670 

003026 

012777 

040000 

175766 

MOV 

440000,3MTC 

679 

003034 

0227/7 

040200 

175760 

CMP 

440200,S1MTC 

600 

003042 

001401 



BEQ 

• +4 

601 

003044 

104400 



HLT 

(ERROR, DENSITY NOT =10 

602 

003046 

1044 0 2 



SCOPE 


603 

003050 

0127/7 

060000 

175744 

MOV 

460000,BMTC 

684 

003056 

0227/7 

060200 

175736 

CMP 

460200, cJHTC 



.MAIN, 
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-NOV-74 
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665 

003064 

001401 



BEQ 


666 

003066 

1044^0 



HLT 

(ERROR DENSITY NOT stl 

687 





j************************************************* ********************* 

680 





ITEST ALL BITS 

OF BYTE COUNT TO ACCEPT COUNT PATTERN 

689 

003070 

104402 



SCOPE 


690 

003072 

0050^7 

001044 


clr 

TEMP 

69 1 

003076 

013777 

001044 

175720 

TBCI MOV 

TEMP,SBC 

692 

003104 

0237/7 

001044 

175712 

CMP 

TEMP,SBC 

693 

003112 

0014U1 



or.Q 

.44 

694 

003114 

1044 0 0 



HLT 

1 ERROR, BYTE COUNT NOT cTEMP 

695 

003116 

032737 

010000 

177570 

BIT 

#10000•SR 

696 

003124 

001002 



ONE 

.46 IINHIBIT ITERATION? 

697 

003126 

005237 

001044 


INC 

temp 

698 

003132 

001301 



ONE 

TBC 

699 





t******* *********************************** ******* ********************* 

700 





t TEST ALL BITS 

OF CURRENT MEMORY ADORESS REGISTER 10 ACCEPT COUNT PaTTERH 

701 

005134 

1044U2 



SCOPE 


702 

003136 

005Q3 7 

001044 


CLK 

temp 

703 

003142 

0137/7 

001 o>4 

175656 

tha: MOV 

TEMP,3CA 

704 

003150 

0237/7 

00 i 0 *4 

175650 

CMP 

TEMP,3C A 

705 

003156 

001401 



BEQ 

.44 

706 

003160 

104400 



HLT 

IERROR, ca NOT s temp 

707 

003162 

032737 

010000 

177570 

BIT 

#10000iSR 

706 

003170 

001002 



ONE 

• +6 IINHIBIT ITERATION? 

709 

003172 

00523 7 

001044 


INC 

TEMP 

710 

003176 

001301 



ONE 

TMA 

711 





|************************************************* ********************* 

712 





iTEST BITS 0-7 

OF DATA-BUFFER TO ACCEpT COUNT PATTERN 

713 

003200 

104402 



SCOPE 


714 

003202 

005037 

001044 


CLR 

TEMP 

715 

003206 

1137/7 

001044 

175614 

tob: mo vn 

TEMP, <3MTD 

716 

003214 

1237/7 

001044 

175606 

CMPO 

TEMP«3MTO 

717 

003222 

0014U1 



OLQ 

.44 

718 

003224 

10^400 



HLT 

IERROR, OATA BUFFER NOT * TEMP 

719 

005226 

032757 

010000 

177570 

BIT 

#10000,SR 

720 

003234 

001002 



BNE 

.46 IINHIBIT ITERATION? 

721 

003236 

105257 

001044 


INCB 

TEMP ino 

722 

003242 

001361 



BNE 

TDB 

723 





I************************************************* ********************* 

724 





(TEST BIT m OF MTHO CAN BE SET ANO CLEARED 

725 

003244 

1044 0 2 



SCOPE 


726 

003246 

0527/7 

040000 

175556 

BIS 

#40000,3MTK0 

727 

003254 

0327/7 

040000 

175550 

BIT 

#40000,3MTR0 

728 

003262 

001001 



BNE 

.44 

729 

003264 

1 0 4 4 u 0 



HLT 

IERROR, BIT 14 OF MTRO NOT si 

730 

003266 

042 7 / 7 

040000 

175536 

BIC 

#40000,3MTRD 

731 

003274 

032777 

040000 

175530 

BIT 

#40000.aMTRD 

732 

003302 

001401 



BEG 

.44 

733 

003304 

104400 



HLT 

IERROR 1 BIT 14 OF MTRO NOT oQ 

734 





ITEST FOR TAPE 

UNIT READY IBIT 0) SET 

735 





1 ******* ****************************************** ********************* 

736 

003306 

104402 



SCOPE 


737 

003310 

104432 



SELECT 


738 

003312 

0327/7 

000001 

175500 

BIT 

#l,aMTS 

739 

003320 

0010O1 



ONE 

*44 

740 

003322 

104400 



HLT 

IERROR TU READY NOT SET 

741 





;*******+***************************************** ********************* 



main 
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742 


743 

003324 

104402 



744 

003326 

0327/7 

000002 

175464 

745 

003334 

001401 



746 

003336 

104400 



747 





746 





749 

003340 

1044U2 



750 

003342 

0327/7 

000004 

175450 

751 

003350 

001401 



752 

003352 

104400 



753 





754 





755 

003334 

104402 



756 

003356 

0327/7 

oooolo 

175434 

757 

003364 

001401 



756 

003366 

104400 



759 





760 





761 

003370 

00603/ 

177570 


762 

003374 

103407 



763 

003376 

10440 2 



764 

003400 

0327/7 

000020 

175412 

765 

003406 

001401 



766 

003410 

104400 



767 

003412 

000406 



768 





769 





7? 0 

003414 

104402 



771 

003416 

0327/7 

000020 

175374 

772 

003424 

0010^1 



773 

003426 

104400 



774 





775 





776 

003430 

104402 



777 

003432 

104432 



776 

003434 

0327// 

000040 

175356 

779 

003442 

001001 



760 

003444 

1 0 4 4 U 0 



761 





782 





763 

003446 

1Q44U2 



784 

003450 

0327/7 

000100 

175342 

765 

003456 

G 010 OI 



786 

003460 

104400 



767 

QU3462 

005037 

001040 


78b 





769 





790 





791 





792 





793 

003466 

005237 

001042 


794 

003472 

104402 



795 

003474 

104404 



796 

003476 

104400 



797 

003500 

104440 



798 

003502 

104 4 3 4 




(TEST FOR REWIND STATUS (BII 1) CLEARED 
SCOPE 

BIT *2»aHTS 

BED .>4 

HLT I ERROR» REWIND STATUS IS StT 

|************************************************* ********************* 

ITEST For WRITE LOCK (BIT 2 ) cleareo 
SCOPE 

BIT »4,5»MTS 

DEO «+4 

MLT IERROR* WRITE LOCK IS SET 

I ******************* **•*♦«**********»*«**********« ********* * ******* * * * • 

ITEST FOR SETTLEOOWN (BIT 31 CLEAREO 
SCOPE 

BIT ttlO.aMTS 

BEQ .+4 

HLT lERROR « SET TLEOOWN IS SET 

|******* ****************************************** ********************* 
ITEST FOR 7 CHANNEL (BIT 4) CLEARED IF 9 CHANNEL SELECTED 
HOK SR IIS SWO = l 

BCS T7CH ITES SKIP 9 CHANNEL TEST 

SCOPE 

BIT «20.S)MTS 

BEG .+4 

HLT lERROR, 7 CHANNEL SET WITH 9 TRACK SELECTED 

(JR TSR ISKIP 7 CHANNEL TEST 

I ************************************************* ********************* 

I TEST FOR 7 CHANNEL (BIT 4) SET IF 7 CHANNEL SELECTED 
T7CHJ scope 

BIT tt20,3MTS 

ONE .*4 

HLT iERROR« 7 CHANNEL NOT SET 

I************************************************* ********************* 

ITEST For BEGINNING OF TAPE (BIT 5) SET 
TSR I SCOPE 

SELECT 

BIT #4 0* SMTS 

ONE # *4 

HLT I ERROR« BOT NOT SET (DRIVE SHOULD BE AT 0OT) 

I ******* 4***************************************** ********************* 

ITEST FOR SELECT/REMOTE (BIT 6 ) SET 

SCOPE 

bit moofanTS 

ONE * + 4 

HLT I ERROR « SElECT/REMOTE NOT C ET 

CLR IDT ST (ALLOW IOEN STATUS CHECK (PE ONLY) 

I**** TAPE MOTION TESTS **** 


I ************************************************* ********************* 

ITEST WRITE EOF 

INC TMTNFL ISET TAPE motion FLAG 

SCOPE 

TSTCUR ITEST CONTROLLER READY 

HI T ILRROR« CONTROLLER DID NOT GO READY 

MIN1BC ISET BYTE COUNT TO MINOS ONE 

WrtUFCA 



«a!N 
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799 

003509 

1044*2 



WREOF 



600 

003506 

1057/7 

175310 


TSTB 

3MTC 


601 

003512 

1000 U1 



»PL 

.44 


802 

003514 

104400 



MLT 


l! ERROR, CONTROLLER 0X0 NOT 60 BUSY 

603 

003516 

013702 

001020 


MOV 

MTS t R2 

I ASSIGN STATUS REG TO ht TESTED 

80 M 

003522 

0127^3 

000040 


MOV 

44Q.H3 

(MASK OOT 

805 

003526 

0 127U 4 

000005 


MOV 

#5 » R4 


606 

003532 

104410 



TSTRGR 


|TEST REG FOR RESET 

607 

003534 

104400 



hlt 


1 error« bot (bit 5* not Cleared 

806 

003536 

104404 



TSTCUR 


ITEST CONTROLLER READY 

609 

003540 

1 0 4 4 0 0 



HLT 


tERROR, CONTROLLER OID NOT GO READY 

810 

003542 

104450 



WAITTR 



811 

003544 

104400 



HLT 


1 ERROR• TAPE UNIT READY DIO NOT SO SET 

612 

003546 

1 U 4 4 ** S 



TSTEOF 



813 

003550 

001001 



BNE 

.♦4 


8 m 

003552 

1044 U 0 



HLT 


lERROR« EOF (BIT 1*41 NOT cl 

815 

003554 

0057/7 

175244 


1 ST 

3BC 


816 

003560 

eoiooi 



BNE 

.♦4 


617 

003562 

104400 



HLT 


(ERROR t BYTE COUNT SHOULD NOT INCREMENT ON WRITE EOF 

816 

003564 

0227/7 

014556 

175234 

CMP 

MWBUF , 3CA 

819 

003572 

001401 



BEG 

.44 


620 

003574 

10 4 4 y 0 



HLT 


IEKROR, CURRENT ADDRESS SHOULO NOT INCREMENT ON WRITE EOF 

821 

003576 

104414 



PWRCLR 


822 

003600 

104446 



1STEOF 



623 

003602 

0 014 u 1 



BEG 

.44 


82 4 

003604 

104400 



HLT 


lERROR. POWER CLEAR OIO NOT CLEAR EOF (BIT !■*> 

825 






626 





ITEST REMIND FUNCTION 


827 

003606 

104402 



SCOPE 



628 

003610 

104404 



TSTCUR 


(TEST CONTROLLER READY 

629 

003612 

1 04400 



HLT 


(ERROR. CONTROLLER DIO NOT GO READY 

63 0 

003614 

1044*2 



WREOF 


(WHITE EOF• 60 

831 

003616 

1044 0 4 



TSTCUR 


(TEST CONTROLLER READY 

8 32 

003620 

104400 



HLT 


(ERROR. CONTROLLER OIO NOT GO READY 

£33 

003622 

1Q441 4 



REWIND 



834 

003624 

104404 



TS1CUR 


(TEST CONTROLLER READY 

835 

003626 

104400 



HLT 


(ERROR. CONTROLLER OIO NOT 60 R£AOY 

836 

003630 

0327/7 

000002 

175162 

BIT 

K2.3MTS 


837 

003636 

0010 U1 



BNE 

.44 


838 

003640 

1044 0 0 



HLT 


lERROR. REWIND STATUS (BIT l) NOT a l OURINS REWIND 

839 

003642 

0060/7 

175152 


ROR 

3MTS 


64 0 

003646 

103001 



ecc 

.44 


841 

003650 

104400 



HLT 


lERROR, TU READY NOT =0 

842 

003652 

013702 

001020 


MOV 

MTS.R2 

(ASSIGN STATUS REG TO BE TESTED 

643 

003656 

012703 

000002 


MOV 

tt 2.R3 

IMASK REWIND BIT 

844 

C03662 

012704 

000007 


MOV 

#7 *R4 


845 

003666 

104410 



TSTRGR 


(TEST REG FOR RESET 

846 

003670 

104400 



HLT 


lERROR, REWIND STATUS t>ID NOT CLEAR 

847 

003672 

0 57/02 

175122 


BIS 

3MTS.R2 

(DELAY A SHORT TIME 

848 

003676 

0327/7 

000010 

175114 

BIT 

410.3MTS 

ICHECK SETTLE DOWN BIT 

849 

003704 

003 001 



BNE 

.44 


650 

003706 

104400 



HLT 


lERROR, SETTLEDOWN STATUS DIO NOT SET 

851 

003710 

0327/7 

000040 

175102 

BIT 

940, 2MTS 

652 

003716 

0 01 0 0 1 



BNE 

.44 


653 

003720 

104400 



HLT 


lERROR, BOT (BIT 51 NOT =1 WHEN SOWN (BIT 3) SET 

854 

003722 

013702 

001020 


MOV 

MTS.R2 

(ASSIGN STATUS REG TO BE TESTED 

855 

003726 

012703 

000010 


MOV 

910 * R3 

(MASK SETTLEDOWN STATUS 



WAIN. 
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856 

003732 

0127U4 

000001 



MOV 

#1,R4 


657 

003736 

104410 




TSTRGR 


«TtST REG FOR RESET 

656 

003740 

104400 




HLT 


1 ERROR< SETTLEOOWN STATUS DIO NOT RESET 

659 

003742 

0060/7 

175052 



ROR 

3MTS 


660 

003746 

10 34 U 1 




DCS 

« ♦4 


661 

003750 

1044U0 




HLT 


lERROR, TU RCAOY NOT SET Al-TER SOwN CLEARED ON RE-WINb 

662 

003752 

104414 




PWRCLR 



663 





1 TEST 

REWIND WHILE AT BOT TO BE IGNORED 

664 

003754 

104402 




SCOPE 



665 

003756 

1044*4 




REWIND 



666 

003760 

104404 




TSTCUR 


ITEST CONTROLLER READY 

667 

003762 

104400 




HLT 


lERROR, CONTROLLER DID NOT GO READY 

666 

003764 

0057/7 

175030 



TST 

3MTS 


6t*9 

003770 

100001 




DPL 

.♦4 


870 

003772 

104400 




HLT 


1 ERROR, ILC( 81 T1S)-1 AFTER REWIND WHILE AT BOT 

671 

003774 

104414 




PwRCLH 



872 





|*************************************i************ ********************* 

873 





1 SPACE 

OVER EOF 

TEST 


874 





|T£ST 

SPACE FORWARD TO 

STOP ON FIRST EOF 

875 

003776 

104402 




SCOPE 



876 

004000 

1044*4 




REWIND 



877 

004002 

1044O0 




WAtTfR 



878 

004004 

1044U0 




HLT 


lERROR, TAPE UNIT READY 010 NOT GO SET 

67 y 

004006 

0127// 

177776 

175010 


MOV 

a- 2 t aac 


800 

004014 

10443b 




RGUFCA 



801 

004016 

1 0m4*6 




SPACEF 



882 

004020 

105//7 

174776 



TST0 

3MTC 


883 

004024 

looooi 




PPL 

.44 


884 

C 04 0 26 

104400 




HLT 


lERROR, CONI ROLLER DID NOT GO BUSY 

855 

004030 

1044^4 




TSTCUR 


1 TEST CONTROLLER READY 

666 

004032 

104400 




HLT 


lERROR, CONTROLLER DIO NOT GO REAQY 

807 

004034 

1044-*6 




TSTEOF 



608 

004036 

00)0^1 




ONE 

.44 


889 

004040 

104400 




HLT 


lERROR. EOF (BIT 14) NOT =1 

890 

004042 

0057/7 

174754 



TST 

SMTC 


891 

004046 

1004 Ul 




UMI 

.44 


892 

004050 

104400 




HLT 


lERROR« (BIT 15) OF COMMAND RE6ISTER NOTsl WITH EOF 5TATU5 

893 

004052 

0227/7 

177777 

174744 


CMP 

D-1.8BC 


894 

0 0 4 0 6 0 

001401 




BE a 

.44 


895 

004062 

1 0 4 4 0 0 




HLT 


lERROR, BYTE COUNT SHOULD HAVE INCREMENTED FROM ZtkD 

896 

004064 

0227// 

014722 

174734 


CMP 

#RBuF |3CA 

897 

004072 

0 01 4 0 1 




BED 

.44 


89 8 

004 0 7 4 

10 4 4 Ki 0 




HLT 


lERROR, CURRENT ADDRESS REGISTER SHOULD NOT INCR 

699 

004076 

1 0 4 4 1 4 




PWRCLH 



900 

004100 

104446 




TSTEOF 



901 

004102 

0 0 1 4 0 l 




HEQ 

.44 


902 

004104 

1044 U 0 




HLT 


lERROR, PWR CLEAR DION 1 T CLEAR EOF (BIT 14) 

903 





iTEST 

SPACE REVERSE TO 

STOP IN FIRST EOF 

904 

004106 

0127/7 

177776 

174710 


MOV 

#-2 # «)BC 


905 

004114 

104436 




ftDUFCA 



906 

004116 

104430 




SPACED 



907 

004120 

104404 




TSTCUH 


ITEST CONTROLLER READY 

908 

004122 

104400 




HLT 


lERROR, CONTROLLER DID NOT GO READY 

909 

004124 

104446 




TSTEOF 



910 

004126 

00100 l 




ONE 

.44 


911 

004130 

104400 




HLT 


lERROR, EOF (BIT 14) NOT cl 

91? 

004132 

0327/7 

000040 

174660 


BIT 

W40.3MTS 
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913 

004140 

001401 




BEQ 

.♦4 


914 

004142 

1O44U0 




HLT 


lERROR* 0OT=1. SHOULD NOT HAVE REACHED BOT . 

915 

004144 

0227/7 

177777 

174652 


CMP 

#-l,SBC 


916 

004152 

001401 




DCQ 

• ♦4 


917 

004154 

104400 




HLT 


1 ERROR, BYTE COUNT SHOULD HAVE INCREMENTED FROH ZZ.KO 

916 

004156 

0227/7 

014722 

17H642 


CMP 

WRBuF.aCA 


919 

004164 

001401 




beo 

• + 4 


920 

004166 

104400 




hlt 


lERROR, CURRENT ADDRESS REGISTER SHOULD NOT INCR. 

921 

004170 

104414 




PWRCLR 



922 

004172 

104424 




REWIND 



923 

004174 

1044^0 




WAITTR 



924 

004176 

10440 0 




HLT 


lERROR, TAPE UNXt READY DIO NOT 60 TRUE 

925 





!*•*** t**********************************.********* ****«»**♦***<$>******** 

926 





lURlTC 

1 BYTE RECORD FROM OOT 

927 





|BOT <nn 51 should clear* cu ready should set, byte count and 

926 





I CURRENT ADDRESS SHOULD 

INCREMENT 

929 

004200 

104402 




SCOPE 



930 

004202 

104440 




M1N1BC 


ISET BYTE COUNT TO MIN^S ONE 

931 

004204 

104434 




WtiUrCA 



932 

004206 

104416 




WRITE 



933 

004210 

104404 




TSTCUR 


ITEST CONTROLLER READY 

934 

004212 

104400 




HLT 


lERROR. CONTROLLER DID NOT 60 READY 

935 

004214 

032757 

000004 

177570 


BIT 

5*4 *SR 

ITEST IF PHASE ENCODED 

93b 

004222 

001412 




BEQ 

IDByP 

t bypass iden test if nrz\ 

937 

004224 

005707 

001040 



TST 

IDTST 

us this first open from bot 

936 

004230 

001007 




BNE 

IDBYP 

I NO 

939 

004232 

005207 

001040 



INC 

IDTST 


940 

004236 

0327/7 

001000 

174566 


BIT 

81000.3MTR0 ITEST FOR IDEN STATUS 

941 

004244 

001001 




BNE 

.♦4 


942 

004246 

1044 CO 




HIT 


lERROR, IDEN STATUS NOT SET 

943 

004250 

0057/7 

174550 


IDBYP* 

TST 

SBC 

ITEST BYTE COUNT TO s 0 

944 

004254 

0 0141 i 




BEQ 

.♦4 


945 

004256 

1044U0 




HLT 


lERROR, BYTE COUNT DION«T INCREMENT 

946 

004260 

0227// 

014557 

174540 


CMP 

8 WBUF+l,aCA ITEST CURRENT MEMORY ADDRESS TO COUNT 

947 

004266 

0014 U 1 




BEQ 

• + 4 


94 8 

004270 

10440 0 




HLT 


lERROR. CURRENT MEMORY ADDRESS OlON*T INCREMENT 

949 

004272 

104414 




PWRCLR 



950 





|+«**.#+*+.*4++**4********«+*.*..****«**»4*4*+*.*. «***********«*«*+«♦*« 

951 





IREAO 1 

BYTE HECCKO FROM 

BOT 

952 





I0OT (PIT 5) SHOULD CLEAR, CU REAOT SHOULD SET, BYTE COUNT AND 

953 





tCURRLNT ADDRESS SHOULD 

INCREMENT 

954 

004274 

104402 




SCOPE 



955 

004276 

104424 




REWINO 



956 

004300 

104450 




WAITTH 



957 

004302 

1044U0 




HLT 


lERROR. TAPE UNIT READy DID NOT GO SET 

958 

004304 

0327// 

000040 

174506 


BIT 

£4 0. SMTS 


959 

004312 

001001 




BNE 

.♦4 


960 

0043X4 

104400 




HLT 


ILRROR. ORIVE NOT AT BOT 

9bl 

004316 

104440 




M1N1BC 


ISET BYTE COUNT TO MINUS ONE 

96 2 

004320 

104436 




RBUFCA 



963 

004322 

1044*0 




READ 



964 

004324 

013702 

001020 



MOV 

MTS * R2 

1 ASSIGN STATUS REG TO BE TESTED 

965 

004330 

012703 

000040 



MOV 

840.R3 

IMASK BOT 

966 

004334 

0127*J 4 

000005 



MOV 

85.R4 


967 

004340 

104410 




TSTRGR 


ITEST REG FOR RESET 

966 

004342 

1 0 4 4 u 0 




HLT 


lERROR. BOT (BIT 5) NOT CLEARED 

969 

004344 

104404 




TiiTCUR 


ITEST CONTROLLER READY 



MAIN 


MACRO V06-0S 05-NOtf-7<* 12J39 PA3E 1*17 


970 

004346 

104400 



HLT 

lERROR. CONTROLLER 010 NOT GO READY 

971 

004350 

005777 

17HH50 


TST 

SBC ITEST BYTE COUNT TO *0 

972 

004354 

001401 



BED 

• ♦4 

973 

004356 

104400 



HLT 

1 ERROR« BYTE COUNT DION'T INCREMENT 

974 

004360 

0227// 

014723 

174440 

CMP 

flRBUF + l«SCA ITEST CURRENT MEMORY ADDRESS TO COUNT 

975 

004366 

001401 



BEG 

.♦4 

976 

004370 

104400 



HLT 

1 ERROR« CURRENT MEMORY ADDRESS OIDN'T INCREMENT 

977 

004372 

104414 



PwRCLR 


976 

004374 

1044^4 



REWIND 


979 

004376 

1044^0 



WAITTK 


960 

0 0 4 4 0 0 

104 4 u 0 



HLT 

lERROR« Tape unit READV did not go true 

98 i 





t**********4«#***************«***«***4i*«********** **«>*****♦**********£ 

982 





ITEST WRITE A 3 DTTE RECORO 

963 

004402 

104402 



SCOPE 


984 

004404 

104442 



MIN*BC 

1 SET BYTE COUNT TO MINUS THREE 

965 

00440b 

104434 



WBUFCA 


986 

004410 

104416 



WRITE 


987 

004412 

1044 0 4 



TSTCUR 

ITEST CONTROLLER READY 

968 

004414 

104400 



HLT 

lEKROR* CONfROLLER DID NOT GO READY 

969 

004416 

02277/ 

014561 

174402 

CMP 

tfWBuF + 3* SCA 

990 

004424 

001401 



BEG 

• ♦4 

991 

004426 

1044^0 



HLT 

lERROR « CURRENT MEMORY ADDRESS DIDN'T INCREMENT 

992 

004430 

0057 /7 

174370 


TST 

auc 

993 

004434 

001401 



BEQ 

.♦4 

994 

004436 

10 4 4 u 0 



HLT 

lERROR, BTTE COUNT OION«T INCREMENT TO 0 

995 

004440 

0057/7 

174356 


TST 

SMTC 

996 

004444 

100001 



BPL 

• 44 

99 7 

004446 

104400 



HLT 

* lERROR • BIT 15 SET IN COMMAND REGISTER 

998 

004450 

104414 



PwRCLR 


999 





t******4*«****«***«*****««#*****4«*»***>«********** *»***♦***♦***•******• 

1000 





iTEST READ A 3 

BYTE RECORO 

1001 

004452 

104402 



SCOPE 


1002 

004454 

1044 2 4 



REwINO 


1003 

004456 

104430 



WA1TTN 


1004 

004460 

1044 u 0 



HLT 

lERROR, TAPE UNIT READY DIO NOT GO SET 

1005 

004462 

104436 



RBuFC A 


1006 

004464 

104442 



MIN3BC 

iset byte COUNT TO MINuS THREE 

1007 

004466 

104 4^0 



HEAD 


1008 

004470 

104404 



TSTCUR 

ITEST CONTROLLER READY 

1009 

004472 

104450 



HLT 

i error« controller did not go ready 

1010 

004474 

0227// 

014725 

174324 

CMP 

WROUF♦3«aCA 

1011 

004502 

001401 



BEQ 

*♦4 

1012 

004504 

1044 0 0 



HLT 

lERROR, CURRENT MEMORY ADOKESS DIDN'T INCREMENT 

1013 

004606 

0057 n 

174312 


TST 

SBC 

1014 

004512 

001401 



BEG 

.44 

1015 

004514 

10 4 4 U 0 



HLT 

lERROR, BYTE COUNT DIDN'T INCREMENT TO 0 

1016 

004516 

0037 / 7 

174300 


TST 

3MTC 

1017 

004522 

1000 O1 



BPL 

.44 

1018 

004524 

104 4 0 0 



HLT 

lERROR• BIT 15 SET IN COMM/sND REGISTER 

1019 

004526 

104414 



PWRCLR 


1020 





I************************************************* ********************* 

1021 





iTEST SPACE FORWARD 3 REVERSE 

1022 





IFIRST WRITE 2 

RECORDS FOLLOWEO BY EOF 

1023 





iSpace Forward 

2 RECORDS, SHOULO NOT REACH EOF 

1024 

004530 

104402 



scope 


1025 

004532 

104404 



TSTCUR 

ITEST CONTROLLER READY 

1026 

004534 

104400 



HLT 

lERROR, CONTROLLER OID NOT GO READY 



• MAIN* 

v 

MACRO V06-03 05 

-NOV-74 

12139 PASE 1- 

16 




1027 

004536 

10442* 



REWIND 




1026 

004540 

104404 



TSTCUR 


ITEST CONTROLLER REAOY 


1029 

004542 

1044 U 0 



HL T 


1 ERROR 4 CONTROLLER 010 NOT GO REAOY 


1030 

004544 

104442 



MIN30C 


t SET ByTE COUNT TO MINuS THREE 


1031 

004546 

104434 



WBUFCA 




1032 

004550 

10441b 



WRITE 




1033 

004552 

104404 



TSTCUR 


ITEST CONTROLLER READY 


1034 

004554 

1044U0 



HLT 


1 ERROR, CONTROLLER DID NOT GO READY 


1035 

004556 

1044*2 



MIN 3 DC 


1 SET OyTE COUNT TO MINUS THREE 


103b 

004560 

104434 



WBUFCA 




1037 

004562 

10441b 



WRITE 




1036 

004564 

10 4 4 U 4 



TSTCUR 


ITEST CONTROLLER READY 


1039 

004566 

104400 



HLT 


1 ERROR t CONTROLLER DID NOT GO READY 


1040 

004570 

1044*2 



UREQF 




1041 

004572 

104464 



TSTCUR 


ITEST CONTROLLER REAOY 


1042 

004574 

10 M 4 0 0 



HLT 


1 ERROR« CONTROLLER DID NOT GO READY 


1043 

004576 

1044*4 



REWIND 




1044 

004600 

1044 0 4 



TSTCUR 


ITEST CONTROLLER REAOy 


1045 

004602 

104 4 0 0 



HLT 


1 ERROR, CONTROLLER OIO NOT GO READY 


1046 

004604 

0127 n 

177776 

174212 

MOV 

D-2.SBC 


1047 

004632 

10 4 4 * b 



SRACLF 




1046 

004614 

1044 u 4 



TSTCUR 


ITEST CONTROLLLR READY 


1049 

004616 

104 4 u 0 



HLT 


1 ERROR, CONTROLLER DIO NOT 60 READY 


1050 

004620 

10444b 



TSTLOF 




1051 

004622 

001401 



OCQ 

.♦4 



1052 

004624 

104460 



HLT 


1 ERROR• EOF (BIT 14)=1, SHOULON* T SPACE THIS 

FAR 

1053 

004626 

0057 f 7 

174172 


1ST 

SBC 

ITEST BYTE COUNT TO s 0 


1054 

004632 

0014U1 



BEQ 

.44 



1055 

004634 

104400 



HLT 


1 ERROR 1 BYTE COUNT DIDN'T NCREMENT TO ZERO 


1056 




INOM 

spacl forward to 

EOF 


1057 

004636 

005077 

174162 


CLH 

SBC 



1056 

004642 

1044*6 



SPACEF 




1059 

004644 

104404 



TSTCUR 


ITEST CONTROLLER READY 


1060 

004646 

3044^0 



HLT 


I ERROR % CONTROLLER OIO NOT GO READY 


1 061 

004650 

104446 



TSTEOF 




1062 

004652 

OGlOOl 



BNt 

.44 



1063 

004654 

104400 



HLT 


IERROR, EOF NOT 


1064 

004656 

022777 

000001 

174140 

CMP 

#l,a6C 



1065 

004664 

001401 



BEG 

.44 



1066 

004666 

104400 



HLT 


(ERROR BYTE COUNT SHOULD «0 


1067 




INOW 

SPACE REVERSE 2 

RECORDS (FIRST MUST BACKSPACE OVER EqF) 


1068 

004670 

104442 



MIN3UC 


1 SET BYTE COUNT TO MINUS THREE 


1069 

004672 

104434 



WBUFCA 




1070 

004674 

104430 



SPACES 




1071 

004676 

104404 



TSTCUR 


(TEST CONTROLLER READY 


1072 

004700 

10 4 4 u 0 



HLT 


I ERROR, CONTROLLER 01D NOT GO READY 


1073 

004702 

10444b 



TSTEOf 




1074 

004704 

OOlOOl 



BNC 

.44 



1075 

004706 

104400 



HLT 


IERROR, EOF (BIT 14* NOT cl AFTER BACKSPACE 

OVER t-OF 

1076 

004710 

104430 



SPACLB 


(RESUME BACKSPACE 


1077 

004712 

104404 



TSTCUR 


1 TEST CONTROLLER READY 


1078 

004714 

104400 



HLT 


IERROR, CONTROLLER DIO NOT GO READY 


1079 

004716 

105777 

174102 


TSTB 

SBC 



1060 

004722 

001401 



BEQ 

.44 



1061 

004724 

104400 



HLT 


(ERROR, BYTE COUNT NOT^O 


1062 

004726 

0227 7 7 

014556 

174072 

CMP 

*wauF v 

acA 


1063 

004734 

001401 



BEQ 

.44 





• main* 


MACRO V06-03 05-NOV-74 12139 PA3E 


1-19 


1009 

004736 

1044UQ 



HLT 


1 ERROR* CURRENT MEMORY ADORESS SHOULONU COUNT 0 

1085 

004740 

032777 

000040 

174052 

BIT 

n4o t anTS 



1060 

004746 

001401 



BEQ 

.44 



1087 

004750 

104400 



HLT 


(ERROR# BACKSPACE SHOULD NOT HAVE REACHED BOT 

1060 

004752 

1044-1 4 



PwRCLR 




1089 





1************************************************* ********************* 

1090 





(TEST READ TO FIND EOF 



1091 

004754 

104402 



SCOPE 




1092 

004756 

104 4 0 4 



TSTCUR 



|TE$T CONTROLLER READY 

1093 

004760 

104400 



HLT 



(ERROR, CONTROLLER DID NOT GO READY 

1099 

004762 

1044*2 



WKCOF 




1095 

004764 

104404 



TSTCUR 



(TEST CONTROLLER READY 

1096 

004766 

104400 



HLT 



(ERROR, CONTROLLER DID NOT GO READY 

1097 

004770 

104430 



SPACES 




1098 

004772 

104404 



TSTCUR 



ITEST CONTROLLER READY 

1099 

004774 

1 O 44 OO 



HLT 



(ERROR* CONTROLLER DID NOT GO READY 

1100 

0047 76 

005037 

014722 


CLR 

RBUF 



1101 

005002 

0127 77 

177771 

174014 

MOV 

*-7.aBC 



1102 

005010 

1044^6 



RDUFCA 




1103 

005012. 

1044*0 



READ 




1104 

005014 

104404 



TSTCUR 



(TEST CONTROLLER READY 

1105 

005016 

104 4 0 0 



HLT 



(ERROR, CONTROLLER DID NOT GO READY 

1106 

005020 

032777 

040000 

173772 

BIT 

#4 0000 *3MTS 


1107 

005026 

OOlGOl 



BNE 

* ♦4 



1108 

OO 5 O 3 O 

1 0 M 4 0 0 



HLT 


(ERROR. EOF (BIT 14) NOT - OURINS A READ OPERATION 

1109 

005032 

032737 

000004 

177570 

BIT 

#4 * SR 


IIS TAPE PHASE ENCODED 

1110 

C05040 

0010*4 



BNE 

TRLE 


1 yes 

1111 

005042 

00603 7 

177570 


ROR 

SR 

IIS 

7 CHANNEL SELECTED 

1112 

005046 

10 3406 



BCS 

TREOF 

IVES 

1113 

005050 

022737 

011423 

014722 

CMP 

#11423«RBUF 


1114 

005056 

0 014 01 



BEQ 

• +4 



1115 

005o6Q 

104 4 0 0 



HLT 


1 ERROR* EOF <23> NOT TRANSFERRED FOR 2 BYTES OUR 1NO KLAD 

1116 

005062 

0004Jl3 



BR 

TRLE 



1117 

005064 

032737 

000010 

177570 

TREOFt BIT 

ft 10 * SR 


IIS CONTROLLER CONFIGURED FOR IBM 

1118 

005072 

001402 



BEQ 

• +6 


(NO 

1119 

0 0 5 0 7 4 

000337 

014722 


SWAB 

RQUF 


1 YES 

1120 

005100 

022737 

000377 

014722 

CMP 

A377*RBUF 


1121 

005106 

0 0 14 U 1 



BEQ 

• +4 



1122 

005110 

104400 



HLT 


1 ERRORf EOF (17-7 CHANNEL) NOT XFERED OURING READ 

1 123 





1************************************************* ********************* 

1124 





ITEST RECORD LENGTH ERROR 


1125 

005112 

104414 



TRLES PWRCLR 




112b 

005114 

10 4 4 0 2 



SCOPE 




1127 

005116 

104404 



TSTCUR 



ITEST CONTROLLER READY 

1128 

005120 

1044UQ 



HLT 



(ERROR* CONTROLLER DID NOT GO READY 

1129 

005122 

0127^7 

177777 

014556 

MOV 

ft-l,UBuF 



1130 

005130 

012737 

177777 

014560 

MOV 

«-l*WDUF*2 


1131 

005136 

10444 4 



MIN4BC 



(SET BYTE COUNT TO MINUS FOUR 

1132 

005140 

104434 



WBlJFCA 




1133 

005142 

1044*6 



WRITE 




1134 

005144 

104404 



TSTCUR 



ITEST CONTROLLER READY 

1135 

005146 

1044U0 



HLT 



(ERROR, CONTROLLER DID NOT GO READY 

1136 

005150 

10 4 4 4 0 



MINlbC 



(SET BYTE COUNT TO MINUS ONE 

1137 

005152 

1044O0 



SPACED 




1138 

005154 

104 4 0 4 



TSTCUR 



ITEST CONTROLLER READY 

1139 

005156 

1 0 4 4 0 0 



HLT 



(ERROR, CONTROLLER DID NOT GO READY 

1140 

005160 

0 050 3 7 

014722 


CLR 

RBUF 





MAIN. MACRO V06-03 05-NOV-74 12J39 PA3E 1-20 


1141 

005164 

0050*7 

014724 


CLR 

R0UF+2 

1142 

005170 

104442 



MIN3BC 

$SET BYTE COUNT TO MINOS THREE 

1143 

005172 

104436 



RBuFCA 


1144 

005174 

1044*0 



READ 


1145 

005176 

1044 U 4 



tstcur 

•TEST CONTROLLER ready 

1146 

005200 

1044U0 



HLT 

•ERROR* CONTROLLER DID NOT 60 READV 

1147 

005202 

0327/7 

001000 

173610 

BIT 

41000,SHTS 

1146 

005210 

0010UI 



ONE 

.♦4 

1149 

005212 

1 0 4 41 0 



HLT 

•ERROR, RECORO LENGyN ERROR <BlT 9) NOT *1 

1150 

005214 

0057 / 7 

173602 


TST 

SMTC 

1151 

005220 

10 0401 



BMI 

.44 

1152 

005222 

IO 44 OO 



HLT 

•ERROR. BIT I 5 NOT si WHEN RLS (BIT 9> si 

1153 

005224 

022737 

177777 

014722 

CMP 

M-l.RBUF 

1154 

005232 

001401 



BEQ 

.♦4 

1155 

005234 

1 0440 0 



HLT 

•ERROR, BYTES 1*2 NOT READ PROPERLY 

1156 

005236 

0 3 2 7 3 7 

000010 

177570 

BIT 

4 10 * SR lis CONTROLLER CONF'IGUKEO FOR IBM 

1157 

005244 

001402 



BU> 

.46 (NO 

1156 

005246 

00033 7 

014724 


SWAB 

RBUF42 IYES 

1159 

005252 

022737 

00037? 

014724 

CMP 

A377,RBUF42 

1160 

005260 

001401 



BEQ 

.44 

1161 

005262 

1 C 4 4 0 0 



HLT 

•ERROR.BYTE 3 REAO ERROR OR SOMETHING XFEREO TO 

1162 






US OlC/IUM SWITCH IN CORRECT POSITION? 

1163 

005264 

104414 



PWRCLR 


1164 

005266 

0327/7 

001000 

173524 

BIT 

#1000.SMTS 

1165 

005274 

001401 



BEQ 

.44 

1166 

005276 

104400 



HLT 

•ERROR PWR CLEAR DI0N»T CLR RLE (BIT 91 

1167 





!*******«**«**•**«*+***************** ************* * 4 ******************* 

1168 





1 


1169 





1 TEST ILLEGAL 1 

COMMANO TO =1 ON A DATO OR DAToB TO MTC WITH CU REAOYsO 

1170 

005300 

1 04402 



SCOPE 


1171 

005302 

104 4 U 4 



TvSTCUR 

•TEST CONTROLLER REAOY 

1172 

005304 

104400 



HLT 

•ERROR, CONTROLLER DID NOT GO READY 

1173 

005306 

104442 



MlfjSBC 

•SET BYTE COUNT TO MINOS THREE 

1174 

005310 

104404 



UBUFCA 


1175 

005312 

104422 



wREOF 


1176 

005314 

104424 



REWIND 


1177 

005316 

1044 U 4 



TSTCUR 

•TEST CONTROLLER REAOY 

1178 

005320 

104400 



HLT 

•ERROR. CONTROLLER DID NOT GO READY 

1179 

005322 

0057/7 

173472 


TST 

3MTS 

1100 

005326 

1 0 0 4 U 1 



BMI 

.44 

1161 

005330 

104400 



HLT 

lERROR, ILLEGAL COMMAND (B»T 15) NOT si 

1162 

005332 

0057/7 

173464 


TST 

SMTC 

1183 

C 05 336 

10 04 0 1 



BMI 

.44 

1184 

005340 

1044U0 



HLT 

•ERROR, (BIT 15) NOT *1 WITH ILLEGAL COMMANO 

1185 

005342 

10 4 4 0 0 



WAITTR 


1106 

005344 

1044UO 



HLT 

•ERROR, TAPE UNIT REAQ 010 NOT GO SET 

1187 

005346 

104414 



PWRCLR 


1108 





!*******,***************************************** ********************* 

1189 





ITEST ILLEGAL 1 

COMMANO BY ISSUING A COMMAND TO TYPE A UNIT WITH SELECT RE 

1190 

005350 

104402 



SCOPE 


1191 

005352 

0137O0 

001106 


MOV 

TCSL.R0 

1192 

005356 

032700 

002000 


BIT 

M2000.R0 IMASK UNIT SELECT MSB 

1193 

005362 

001004 



UNE 

.412 JIS UNIT SELECT MSB SET? 

1194 

005364 

0427*7 

010000 

005414 

BIC 

M10000«CINST t NO, MAKE CjNST A BIC INSTRUCTION 

1195 

005372 

0 0 0 4 u 3 



BR 

.410 

1196 

005374 

052737 

010000 

005414 

BIS 

ttlOOOO.CINST IYES, MAKE CINST A BIS INSTRUCTION 

1197 

005402 

013 7*7 

001106 

001044 

MOV 

TCSL.TEMP 



MAIN 


MACRO 1/06-03 05-NOV-7* 12:39 PASE 1-21 


1198 

005410 

105237 

001045 


I NCR 

TtMp+l 

1199 

005414 

04273/ 

002000 

001044 

cinst; BIC 

#2000«TEMP ICAN BE A BIC OR BIS INSTRUCTION 

1200 

005422 

0137/7 

001044 

173372 

MOV 

TEMP,9MTC 1SELECT OFF LINE UNIT 

1201 

005430 

104404 



TSTCUR 

ITEST CONTROLLER REAOY 

1202 

005432 

1044U0 



HLT 

tERROR« CONTROLLER DIO NOT GO READY 

1203 

005434 

0060/7 

173360 


ROR 

SMTS 

1204 

005440 

1030U1 



BCC 

• ♦4 

1205 

005442 

104400 



HLT 

tERROR NON DESIGNATED TAPE UNIT ON LINE 

1206 

005444 

0327/7 

000100 

173346 

01T 

#l 00 *aMTS 

1207 

005452 

0 0 14 U1 



BEO 

*♦4 

1200 

005454 

1 044 0 0 



HLT 

1 ERROR t SELECT REMO|E (BIT 6) NOT =0 WITH NONEXlSTAMT drive 

1209 

005456 

0527 /7 

000017 

173336 

BIS 

#17,o)MTC 1 ISSUE REWIND 

1210 

005464 

1 04404 



TSTCUR 

ITEST CONTROLLER READY 

1211 

005466 

104400 



HLT 

iE rror* controller did not go ready 

1212 

005470 

0057 / 7 

173324 


TST 

smts 

1213 

005474 

1004U1 



BMI 

.44 

1214 

005476 

1 04400 



HLT 

1 ERROR« ILLEGAL COMMANQ |B\T 15) NOT cl 

1215 

005500 

104414 



PWKCLR 


1216 

005502 

0057/7 

173312 


TST 

«MTS 

1217 

005506 

100001 



BPL 

.♦4 

1210 

005510 

104400 



HLT 

I ERROR, POWER CLEAR DIDN’T CLEAR ILC (BIT 15) 

1219 





I******* * **«**•*******•****%♦* + *♦•♦*♦*♦***«******* ********************* 

1220 





iTEST BACKSPACE WHILE at BOT TO BE IGNORED 

1221 

005512 

104402 



SCOPE 


1222 

005514 

1044 c 4 



REWINO 


1223 

005516 

104 4 U 4 



TSTCUR 

ITEST CONTROLLER REAOy 

1224 

005520 

1044u0 



HLT 

I ERROR, CONTROLLER DIO NOT GO REAOY 

1225 

005522 

1044=>0 



WAITTR 


1226 

005524 

104400 



HLT 

1 ERROR« TAPE UNIT READY DIO NOT GO SET 

1227 

005526 

104440 



MlNjBC 

1 SET ByTE COUNT TO MINUS ONE 

1220 

005530 

104430 



SPACED 


1229 

005532 

104404 



TSTCUR 

ITEST CONTROLLER REAOY 

1230 

005534 

10 44^0 



HLT 

1 ERROR « CONTROLLER OID NOT GO REAOY 

1231 

005536 

0057/7 

173256 


TST 

ciMTS 

1232 

005542 

1000O1 



UPL 

.♦4 

1233 

005544 

1 044U0 



HLT 

tERROR« ILC (BIT 15) cl AFTER BACKSPACE WHILE AT BO T 

1234 

005546 

0327/7 

000040 

173244 

BIT 

*40.SMTS 

1235 

005554 

001001 



ONE 

• *4 

1236 

005556 

1 0 4 4 0 0 



HLT 

IERROR* NOT AT BOT AFTER BACKSPACE 

1237 





%44*44*4 44*4 + 4*444*********444 + 44 4 4 4*44*4*4* *4 44*4 444*444444444 

1238 





ITEST BAD TAPE 

ERROR (BIT 8) TO =1 

1239 





tuse MAINTENANCE BIT 13 of HTHD TO SET PREMATURE C II REAOY TO CAUSE BAD TAPE ERROR 

1240 

005560 

10 4 4 U 2 



SCOPE 


1241 

005562 

03273/ 

000004 

1775/0 

BIT 

*4 «SR US TAPE PHASE ENCODED 

1242 

005570 

001041 



ONE 

NXMT 1 YES 

1243 

005572 

104444 



MIN4BC 

I SET BYTE COUNT TO MINUS FOyR 

1244 

005574 

104434 



WOUFCA 


1245 

005576 

1044 U 4 



TSTCUR 

ITEST CONTROLLER READY 

1246 

005600 

104400 



HLT 

(ERROR* CONTROLLER DID NOT GO READY 

1247 

005602 

104416 



WRITE 


1248 

005604 

013702 

001024 


MOV 

BC.R2 1 ASSIGN BYTE COUNT REG TO BE TESTEO 

1249 

005610 

012703 

177777 


MOV 

fi-l.R3 ITEST ALL OF REG 

1250 

005614 

012704 

000001 


MOV 

#1%R4 

1251 

005620 

104410 



TSTHGR 

ITEST REG FOR RESET 

1252 

0G5o22 

104400 



HLT 

(ERROR, BYTE COUNT DID NOT 60 TO ZERO 

1253 

005624 

0527// 

020000 

173200 

BIS 

#20000,8HTR0 (SET PREMATURE CU READY 

1254 

005632 

10 4 4 3Q 



WAITTR 
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1255 

005634 

104400 



1256 

005636 

0327 f / 

000400 

173154 

1257 

005644 

001001 



1256 

005646 

1044C0 



1259 

005650 

005//7 

173146 


1260 

005654 

100401 



1261 

005656 

1044 u 0 



1262 

005660 

104414 



1263 

005662 

0327 /7 

000400 

173130 

12t>4 

005670 

001401 



1265 

005672 

104400 



1266 





1267 





1268 

005674 

104402 



1269 

005676 

104440 



1270 

005700 

012777 

173000 

173120 

1271 

005706 

104404 



1272 

005710 

1044u0 



1273 

005712 

0127/7 

000060 

173102 

1274 

005720 

0537/7 

001116 

1730/4 

1275 

005726 

104404 



1276 

005/30 

104400 



1277 

005732 

0327 17 

000200 

173060 

1278 

005740 

001001 



1279 

005742 

1 0 4 4 U 0 



1260 

005744 

0057/7 

173052 


1261 

0C5750 

1004 U 1 



1202 

005752 

104400 



1283 

005754 

10 4 41 4 



1264 

005756 

0327/7 

000600 

173034 

12 05 

005764 

001401 



1286 

005766 

104400 



1287 





1288 





1289 





1290 

005770 

104402 



1291 

005772 

0127u 6 

000776 


1292 

005776 

01373 7 

001110 

1777/6 

1293 

006004 

0137/7 

001110 

173004 

1294 

006012 

0127/7 

006040 

172774 

1295 

006020 

01277 7 

000100 

172774 

1296 

006026 

005777 

172770 


1297 

006032 

0050/7 

172764 


1298 

006036 

104400 



1299 





1300 





1301 

006040 

104414 



1302 

006042 

104402 



1303 

0 U 6 044 

012706 

000776 


1304 

006050 

013757 

001104 

177776 

1305 

006056 

0137/7 

001104 

172732 

1306 

006064 

013737 

001104 

000036 

1307 

006072 

0127 / 7 

006114 

172714 

1308 

006100 

01277 7 

000100 

172714 

1309 

006106 

0057 /7 

172710 


1310 

0061 12 

0 0 0 4 0 1 



1311 

006114 

104400 




1-22 


(ERROR• Tape UNIT read did NOT 60 SET 


I ERROR« BIT 15 NOT si WITH BTE C 1 


hlt 

BIT #400f9MTS 

BNE .*4 

HLT (ERROR* BAD TAPE ERROR (Bir a) NOT si 

TST 3MTC 

BMI .*4 

HLT (ERROR, BIT 15 NOT si WITH BTE C 1 

PwRCLR 

BIT #400,ahTS 

DEO .44 

HLT (ERROR, POWER ClEAK DiDN*T CLEAR BTE (Bit 6) 

I************************************************* ********************* 

(TEST NON-EXISTENT MEMORY (BIT 7> AND ERROR (BIT 161 TO =1. 
nxmT: scope 

MIN1HC (SET BYTE COUNT TO MINUS ONE 

MOV 4173000.3CA (IN1T CURRENT MEMORY ADORESS FOR NON EXISTENT MU 
TSTCUR (TEST CONTROLLER READY 

hlt (Error, controller oio not go ready 

MOV #60.aMTC (SET EA~5 

BIS TCWT v GMTC (WRITE, «00 DPI. 60 

TSTCUR (TEST CONTROLLER READY 

HLT (ERROR, CONTROLLER DID NOT GO READY 


MIN1HC (SET Bt 

MOV 4173000.aCA (IN1T C 

TSTCUR (TEST C 

hlt (ERROR. 

MOV #60.aMTC (SET t / 

BIS TCWT v GMTC (WRITE, 

TSTCUR (TEST C 

HLT (ERROR, 

BIT 4200«aMTS 

ONE .44 

HLT (ERROR, NOr 

TST aMTC Y 

BMI .44 -J f 1. ; i 

HLT (ERROR, (B J 

PWRCLR 

BIT 4600.3MTS 

BEQ .44 

HLT (ERROR, POu 

(***♦ INTERRUPT TESTS **** 


4200 .aiiTS 
• +4 


(ERROR, NON-EXISTENT MEMORY (BIT 7) NOT «1 


(ERROR, | Li IT 15) NOT =1 WITH NXM (BIT 7) =1 


4600.aMTS 
.44 


(ERROR, POWER CLEAR DIDN'T CLEAR BTE (BIT 6) OR 


iTEST FOR PROCESSOR PRIORITY LEVCL MTPM TO ALLOW INTERRUPT 
SCOPL 

MOv 4BUFF,SP (SET UP STACK 

MOV MTPM,CC (SCT PRIORITY LEVEL 

MOV MTPMtSMTVS (SL T INTERRUPT VECTOR C 

MOV 4 IRt,3MTVI INIT INTERRUPT RETURN 

MOV 4100,SMTCI SET INT ENABLE 

TST 2MTC (WAIT FOR INTERRUPT 

CLR SlHTC (WAITED TOO LONG WITHOUT INTERRUPT. CLEAR INT tHAU.L 

HLT (ERROR. INT ENABLE FAILED TO CAUSE INT 

I********** 


**********4 


(TEST FOR PROCESSOR PRIORITY level MTP TO SUPPRESS INTERRUPT 


PWRCLR 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TST 

UR 

HLT 


4DUFF « SP (SET UP STACK 

M TP # CC (SET PROCESSOR PRIORIT 

MTP.3MTVS (SET INTERRUPT VECTOR 

MTP.36 

4IR?,3MTVI IWIT INTERRUPT RETURN 
4100 . SMTC I SET INIT ENAQLE 
aMTC (WAIT FOR INTERRUPT 

IR2A 


TO MAG TAPE LEVEL 


IH2I 


(ERROR, SHOULDN'T HAVE INTERRUPT WITH PROCESSOR 
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1312 





l»**********************+*«*****#****»*»*****+***« •»»****♦******««***#* 

1313 





1 TEST CU READY 

TO CAUSE 

INTERRUPT With INT ENABLE l 

1314 





IINT tNAOLC (BjT6> AND GO (BIT 0) SET AT SAME TIME ShOUlON*T CAUSE INTERRUPT 

1315 

006116 

104414 



IR2A: PwRCLR 



1316 

006120 

104402 



SCOPE 



1317 

006122 

0127^6 

000776 


MOV 

4BUFF »SP 

1 SET UP STACK 

1316 

006126 

013737 

001110 

177776 

MOV 

MTPM.CC 

iset PRIORITY level 

1319 

006134 

013737 

001110 

001016 

MOV 

MTPM«MTyS 

1 SET INTERRUPT VECTOR C 

1320 

006142 

013737 

001110 

000036 

MOV 

MTPM,36 


1321 

006150 

C1277 7 

006214 

172636 

MOV 

tt IR3 « aJMTV 


1322 

006156 

104432 



select 



132 3 

006160 

1044U4 



TSTCUK 


itest controller READY 

1324 

006162 

1 04400 



HLT 


I ERROR, CONTROLLER DIO NOT GO READY 

1325 

006164 

0137U0 

001120 


MOV 

TCWF,R0 


1326 

006170 

052700 

000100 


BIS 

lllOO tRO 


1327 

006174 

0100/7 

172622 


MOV 

RO * o»MTC 

IWRITE EOF• INT ENABLE GO 

132 0 

006200 

10 4 4 0 4 



TSTCUR 


ITEST CONTROLLER READY 

13 29 

006202 

0004 U 



BR 

IR3A-2 


1330 

006204 

0057 n 

172612 


TST 

cJMTC 

iwait for interrupt 

1331 

006210 

104400 



HLT 


1 ERROR * NO INTERRUPT AT COMPLETION OF WRITE 

1332 

006212 

0004U& 



BR 

IR3A 


1333 

006214 

1057 /7 

172602 


IR3I TSTB 

SMTC 


1334 

006220 

10 0 4 U 1 



BMI 

.♦4 


1335 

006222 

104400 



HLT 


1 ERROR« INTERRUPT NOT CAUSED BY CU READY 

13 36 

006224 

000401 



BR 

IR 3 A 


1337 

006226 

104400 



HLT 


1 ERROR * CONTROLLER DID NOT GO READY 

1330 

U06230 

104414 



IR3A I PwRCLR 



1339 





I ****#***.*♦««•********♦**♦♦•*♦*♦♦******♦**♦**«#*** ********************* 

134 0 





jTEST REWIND TO CAUSE TWO INTERRUPTS 

1341 





| 1ST AFTER CU 1 

READY AND 

2ND AFTER REWIND COMPLETE 

1342 

0062 32 

104402 



SCOPE 



1343 

006234 

01 27u 6 

000776 


MOV 

4BUFF «SP 

1 SET UP STACK 

134 m 

006240 

0137 3 A 

001110 

177776 

MOV 

MTPM«CC 

1 SET PRIORITY LEVEL 

1345 

006246 

0137^7 

001110 

000036 

MOV 

MTPM 1 36 


134 6 

006254 

0127/7 

006326 

172532 

MOV 

8 IR4 * 3MTV 


134 7 

006262 

104432 



select 



134 6 

006264 

104404 



TSTCUR 


ITEST CONTROLLER READY 

1349 

006266 

104400 



HLT 


I ERROR, CONTROLLER DID NOT 60 READY 

1350 

006270 

1044*2 



WRLOF 



1351 

006272 

104404 



TSTCUR 


ITLST CONTROLLER READY 

1352 

006274 

1044 00 



HLT 


1 ERROR, CONTROLLER DID NOT GO READY 

1353 

006276 

013700 

001130 


MOV 

tcrw*Ro 


1354 

006302 

052700 

000100 


BIS 

4100«RO 


1355 

006306 

0100/7 

172510 


MOV 

ROiiMTC 

IINT ENABLE* REWIND* GO 

1356 

006312 

104404 



TSTCUR 


ITEST CONTROLLER READY 

1357 

006314 

000416 



BR 

IR4A-2 


1350 

006316 

0 057 / 7 

172500 


TST 

2MTC 

IWAIT FOR INTERRUPT 

1359 

006322 

1044^0 



HLT 


1 ERROR« NO INT AFTER ISSUING REWIND 

1360 

006324 

000413 



BR 

IR4 A 


1361 

006326 

1057 /7 

172470 


IR42 TSTB 

cfMTC 


1362 

006332 

1 0040 l 



BMI 

.+4 


1363 

006334 

104 4 u 0 



HLT 


1 ERROR« INTERRUPT NOT CAUSED BY CU READY 

1364 

006336 

0327/7 

000040 

172454 

BIT «40«S)MTS 


1365 

006344 

100001 



HPL 

.♦4 


1366 

006346 

104400 



HLT 


1 ERROR • SMOULON•T BE AT BOT SO SOON AFTER 1ST IN * LUK 

136 7 

006350 

0 0 0 4 0 1 



BR 

IR4 A 


1360 

006352 

1 0 4 4 o o 



HLT 


1 ERROR« CONTROLLER DID NOT GO READY 
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1369 

006334 

0127// 

006376 

172432 

IR4AS 

MOV 

MIR5«3MTV 

1370 

006362 

1044t»0 




waittr 


1371 

006364 

000412 




OK 

IR5A-2 

1372 

006366 

0057/7 

172430 



TST 

3MTC (WAIT FOR INTERRUPT 

1373 

006372 

104400 




HLT 

lERKOR , NO INT AT END OF REWIND 

1374 

006374 

0 0 0 4 U 7 




BR 

IR5A 

1375 

006376 

0327/7 

oooo**o 

172414 

IKS 2 

BIT *4 C 

i, o)MTS 

1376 

006404 

ooioui 




ONE 

• ♦4 

1377 

006406 

1Q44 o Q 




HLT 

(ERRORS 2ND INTERRUPT NOT CAUSED BY REWIND COMPLEli 

1378 

006410 

00G4U1 




BR 

IR5A 

1379 

006412 

1044U0 




HLT 

IERROR, TAPE UNIT REAq DID NOT 60 SET 

1360 

006414 

104414 



IR5AJ 

PWRCLR 


1361 






(*♦** DATA TRANSFER TESTS **** 

1382 





)********************************#*«***********•** ********************* 

1383 





(WRITE: 

RECORD, 

BACKSPACE, READ HcCoKU 

1384 





(Repeat 

FOR ALL byte PATTERNS from 0 THRU All DATA PATTERNS 

1365 

006416 

104402 




SCOPE 


1386 

006420 

012706 

000776 



MOV 

WBUFF # SP (SET UP STACK 

1367 

006424 

005037 

177776 



CLR 

CC (SET PROCESSORPRIORXTY TO 0 

1388 

006430 

005037 

000036 



CLR 

36 (SET TRAP PRIORITY TO 

1389 

006434 

0127^7 

000340 

001016 


MOV 

«34o,MTVS 1 SET INTERRUPT VECTOR C 

1390 

006442 

0127/7 

011450 

172344 


MOV 

bMTTRP,3MTV (SET UP ILLEGAL INTERRUPT RETURN 

1391 

006450 

0030^7 

001044 


wbrs t 

CLR 

TEMP (INITIALIZE DATA PATTERN 

1392 

006454 

012700 

014556 


UUR ( 

MOV 

AWBUF.RO 

1393 

006460 

013720 

001044 



MOV 

TEMP, (RO ) + (SET Up WRITE BUFFER 

1394 

006464 

G227U0 

014602 



CMP 

«WBuF*24,R0 

1395 

C0t>4 7Q 

0013/3 




BNE 

WUR *4 

1396 

006472 

0127/7 

177754 

172324 


MOV 

a-20,,aBClINIT BYTE COUNT 

1397 

006500 

1 0 M 4 3 4 




WliUFCA 


1398 

006502 

104404 




TSTCUR 

(TEST CONTHOl LER READY 

1399 

006504 

1044 0 0 




HLT 

(ERROR, CONTROLLER DIO NOT 60 READY 

1400 

006506 

104416 




WRITE 


1401 

006510 

104404 




TSTCUR 

ITEST CONTROLLER READY 

1402 

006512 

104440 




HLT 

(ERROR, CONTROLLER DID NOT fcO READY 

1403 





(AFTER 

WRITE, CHECK WRITE BUFFER TO MaKE CERTAIN IT WASN'T MODIFIED 

1404 

006514 

0127U0 

014556 



MOV 

AWHUF,HO 

1405 

006520 

023720 

001044 


WBRlt 

CMP 

TEMP. (RO )♦ 

1406 

006524 

001401 




BEO 

.+4 

1407 

006526 

1044u0 




HLT 

(ERROR, DATA BUFFER MODIFIED OURING WRITE 

1408 

006530 

022700 

014602 



CMP 

AWBUF*24,R0 

1409 

006534 

0013/1 




BNE 

WBRl 

1410 





(BACKSPACE 1 RECGRO 

1411 

006536 

104440 




MIN1BC 

(SET BYTE COUNT TO MINUS ONE 

1412 

006540 

104430 




SPACED 


1413 

006542 

104464 




TSTCUR 

ITEST CONTROLLER READY 

1414 

006544 

1044 0 0 




HLT 

(ERROR« CONTROLLER DID NOT GO READY 

1415 

006546 

012700 

014722 



MOV 

URDUF,R0 

1416 

006552 

005020 



WBR2: 

CLR 

<R0>* (CLEAR READ BUFFER 

1417 

006554 

022700 

014746 



CMP 

ARBUF *24,RO 

1418 

006560 

0013/4 




BNE 

WBR? 

1419 





11 READ 

RECORD 


1420 

006562 

012777 

177754 

172234 


MOV 

8-20 • ,SBC\UNIT BYTE COUNT 

1421 

006570 

104436 




RBUFCA 


1422 

006572 

104420 




READ 


1423 

006574 

104404 




TSTCUR 

ITEST CONTROLLER READY 

1424 

006576 

104400 




HLT 

(ERROR, CONTROLLER DID NOT 60 READY 

1425 

006600 

0057/7 

172216 



1ST 

SMTC 



MAIN, MACRO V06-03 05-NOV-74 12S39 PAGE 1-25 


1426 

006604 

100001 




BPL 

.♦4 


1427 

006606 

104400 




HLT 

1 ERROR 1 ERROR {BIT IS) ml AFTER READ 

1428 

006610 

012700 

014722 



MOV 

MRBUF'RO 


1429 

006614 

023720 

001044 


WBR3: 

CMP 

TEMP•(RO)+ 


1430 

006620 

00X401 




BEQ 

• 4-4 


1431 

006622 

104400 




HLT 

1 ERROR, DATA READ NOT EQUAL DATA WRITTEN 

1432 

006624 

022700 

014746 



CMP 

*RDUF+24tR0 


1433 

006630 

0013/1 




6 NE 

WBK3 


1434 

006632 

104402 




SCOPE 



143b 

006634 

105237 

001044 



INCB 

TEMP IOONE FOR ALL DATA PATTERN 7 

1436 

006640 

013700 

001116 



MOV 

TCWT*R0 


1437 

006644 

042700 

117777 



B 1C 

4117777,RO 


1438 

006650 

022700 

060000 



CMP 

460000,RO 

•IS CORE DUMP MODE SELECTED? 

1439 

006654 

001403 




BEQ 

• ♦10 

IYES 

144o 

006656 

142737 

000300 

001044 


bICB 

4300,TEMP 

• NO 

1441 

006664 

1057 37 

001044 



TS1B 

TEMP 


1442 

006670 

001405 




HLG 

WBR4 IYES 

♦ EXIT 

1443 

006672 

113737 

001044 

001045 


MOVB 

TEMP * TEMP+1 

(NO 

1444 

0 G 6 7 0 0 

000137 

006454 



JMP 

WBR IREPEAT 

1445 

006704 

162757 

C20000 

001116 

UBR4S 

SUB 

420000,TCWT 

•change density of write command 

1446 

00t>7l2 

1627^7 

020000 

001114 


SUB 

420000,TCRD 

•CHANGE DENSITY OF READ COMMAND 

144? 

006720 

032757 

060000 

001116 


BIT 

460000,TCWT 

•MASK DENSITY STATUS 

1448 

006726 

0012^0 




ONE 

WBRS 

• REPEAT FOR ALL DENSITY'S 

1449 

006730 

013700 

001106 



MOV 

TCSL,ro 

•RESTORE TCWT & TCRO 

1450 

006734 

062700 

O 6 OOO 3 


/ 

ADO 

460003 «R0 


1451 

006740 

010057 

001114 


MOV 

RO.TCRO 


1452 

006744 

06270 0 

000002 



ADO 

42.R0 


1453 

006750 

010037 

001116 



MOV 

RO .TCWT 


1454 





|WRITE 

AND READ A LONG RECORD 

1455 





<usts 

MEMORY OCCUPIED BY THE 

PROGRAM AS A WRITE BUFFER 

1456 

006754 

104402 




SCOPE 



1457 

006756 

012700 

017000 



MOV 

417000,RO 


145S 

006762 

162700 

014722 



sun 

4RBUF,R0 

•CALCULATE SIZE OF READ BUFFER 

1459 

006766 

005400 




MEG 

RO 

•GEN 2•S COMPLIMENT 

1460 

006770 

010037 

001044 



MOV 

ro.temp 


1461 

006774 

0137/7 

001044 

172022 


MOV 

TEMP,SBC 


1462 

007002 

0127/7 

002000 

172016 


MOV 

42000 ,acA 


1463 

00/010 

104404 




TSTCUR 


•TEST CONTROLLER READY 

1464 

007012 

10 <♦ 4 0 0 




HLT 


lERROR, CONTROLLER DIO NOT GO READY 

1465 

007014 

104 416 




WRITE 



1466 

007016 

10 4 4 U 4 




TSTCUR 


ITEST CONTROLLER READY 

1467 

007020 

104400 




HLT 


•ERROR, CONTROLLER DIO NOT 60 READY 

1468 

007022 

104440 




MIN1BC 


• set byte count to m;inus one 

1469 

007024 

104450 




SPACER 



1470 

007026 

104404 




TSTCUR 


•TEST CONTROLLER READY 

1471 

007030 

104400 




HLT 


•ERROR, CONTROLLER DID NOT 60 READY 

1472 

007032 

0137/7 

001044 

171764 


MOV 

TEMP,SBC 


1473 

007040 

104436 




RUUFCA 



1474 

007042 

1044*0 




READ 



1475 

007044 

104 4 0 4 




TSTCUR 


•TEST CONTROLLER READY 

14 76 

007046 

104400 




HLT 


•ERROR, CONTROLLER DID NOT GO READY 

1477 

007050 

0057/7 

171746 



TST 

SMTC 

•CHECK FOR ERROR STATUS 

1478 

007054 

100001 




BPL 

.44 


1479 

00705b 

104400 




HLT 


•ERROR. ERROR FLAG SET IN MTC 

1480 

0 0 7 C 6 0 

01?71Q 

002000 



MOV 

42000.RO 


1481 

007064 

012701 

014722 



MOV 

4RBuF,R1 


1482 

007070 

0220*1 



WBRS { 

CMP 

• ROI♦ •(Rl) + 

•DO A DATA COMPARISON 



main 
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1463 

007072 

001401 




BEQ 



1484 

007074 

1044^0 




NET 

•error, data read not equal oata written . 


1485 

007076 

022701 

017000 



CMP 417000«R1 1 CHECK THE WHOLE BUFFER 


I486 

007102 

001372 




BNE 

WBR5 INO 


1467 





l*****4**+**************«********««*«************* ft******************** 

1468 





iTEST PARITY 



1489 





• write: 

3 byte RECORD OOU PARITY* read even parity 


1490 





• BIT 14 

OF MTRO si SHOULD CAUSE LPS TO BE LOADED IN DATA BUFFER AFTER 

RE 

1491 

007104 

104402 



par: 

SCOPE 



1492 

007106 

032737 

000004 

177570 


BIT 

#4 v SR IIS TAPE PHASE ENCODED 


1493 

007114 

001402 




BEQ 

.46 INO 


1494 

007116 

000137 

010252 



JMP 

TMRT 1 YES 


1495 

007122 

012737 

177777 

014556 


MOV 

#-l*wBuF 


1496 

00/130 

012737 

177777 

014560 


MOV 

#-l ,UiBUF42 


1497 

007136 

104442 




MIN3BC 

I SET BYTE COUNT TO MINUS THREE 


1498 

007140 

104434 




guurCA 



1499 

007142 

104404 




TSKUR 

ITEST CONTROLLER REAOY 


1500 

007144 

104400 




HUT 

iekhor* controller did not go ready 


1501 

007146 

013700 

001116 



MOV 

TCWT.RO 


1502 

0U7152 

Q 0 5 3 0 0 




DEC 

HO 


1 50i 

007154 

0100 7 / 

171642 



MOV 

RO.aMTC IURITE* 800 6PI# 9 TRACK 


1504 

007160 

0060 3 7 

177570 



ROR 

SR 


1505 

007164 

1 030 0 3 




BCC 

• 410 


1508 

007166 

0427 7 7 

020000 

171626 


BIC 

#20000.BMTC IMAKE COMMAND 7 TRACK 


1507 

007174 

005277 

171622 



INC 

tfMTC IGO 


1508 

007200 

104404 




TSTCUR 

ITEST CONTKOLLER READY 


1509 

007202 

104400 




MLT 

lERROR• CONTROLLER DID NOT GO READY 


1510 

007204 

10 4 4 4 0 




MIN10C 

ISET BYTE COUNT TO MINUS ONE 


1511 

007206 

104430 




SPACED 



1512 

007210 

10^404 




TSTCUR 

ITEST CONTROLLER READY 


1513 

007212 

1 04400 




HLT 

lERROR• CONTROLLER OID NOT GO READY 


1514 

007214 

0527 7 7 

040000 

171610 


BIS 

#40000,8MTR0 


1515 

007222 

104442 




MIN3BC 

iset byte count to minus three 


1516 

007224 

1044^6 




RBUFCA 



1517 

007226 

013700 

001114 



MOV 

TCROtRO 


1518 

007232 

052700 

004000 



LUS 

#4000,RO IMAKE EVEN PARITY 


1519 

007236 

G 053 w 0 




OEC 

HO 


1520 

007240 

010077 

171556 



MOV 

RO.dMTC IREAO 


1521 

007244 

0060^7 

177570 



ROR 

SR 


1522 

007250 

103003 




BCC 

.410 


1523 

007252 

042 7 7 7 

020000 

171542 


BIC 

#20000.aMTC IMAKE COMMAND 7 TRACK 


1524 

007260 

00527 7 

171536 



INC 

SM1C IGO 


1525 

007264 

104404 




TSTCUR 

ITEST CONTROLLER READY 


1526 

007266 

104 40 0 




HLT 

lERROR, CONTROLLER DID NOT GO READY 


1527 

007270 

032777 

010000 

171522 


BIT 

#10000,3MTS 


1528 

007276 

001001 




BNE 

.44 


1529 

007300 

104400 




HLT 

lERROR. PARITY ERROR (BIT |2> NOT »1 


1530 

007302 

0177uu 

171522 



MOV 

qmtd.ro 


1531 

007306 

042700 

177000 



BIC 

#177000,RO 


1532 

007312 

0 060^7 

177570 



ROR 

SR 


1533 

0U7316 

103403 




BCS 

PARl 


1534 

007320 

022700 

000744 



CMP 

#744,RO 


1535 

007324 

00140 1 




BEQ 

.44 


1536 

007326 

104 4 0 0 




HLT 

lERROR, LPC NOT =744 OR BIT 14 OF HTRD DIDN'T 

CA 

1537 

007330 

000404 




OR 

PAR2 


1538 

007332 

022 70 0 

000477 


pari: 

CMP 

#477,RQ 


1539 

007336 

001401 




bCQ 

.44 




MAIN. MACRO V06-05 OS-NOV-74 12)39 PASC 1-27 


1540 

007340 

1044U0 




HLT 

lEARORt LPC NOT *<*?7 <7 CHANNEL) OR LPC 

NOT READ 

1541 





•WRITE 

EVEN PARITY• READ 000 

PARITY 


1542 

007342 

104442 



pAR2l 

MIN3UC 


•set byte count to minus three 


1543 

007344 

104434 




WBUFCA 




1544 

007346 

0137U0 

001116 



MOV 

TCWT.RO 



1545 

007352 

052700 

004000 



BIS 

44000.RO 

•MAKE EVEN PARITY 


1546 

007356 

008300 




UEC 

RO 



1547 

007360 

oioo// 

171436 



MOV 

R0.3MTC 

•WRITE, 600 BPI, 9 TRACK 


1548 

007364 

006037 

177570 



ROR 

SR 



1549 

007370 

103003 




BCC 

• *10 



1550 

007372 

0427/7 

020000 

171422 


BIC 

#20000*3MTC 

•MAKE 7 TRACK 


1551 

007400 

0052/7 

171416 



INC 

eDMT C iGO 



1552 

007404 

IO 44 O 4 




TSTCUR 


•TEST CONTROLLER READY 


1553 

007406 

104400 




HLT 


•error, controller did not go ready 


1554 

007410 

104440 




MlNlBC 


•set ByTE count to MINUS ONE 


1555 

007412 

104430 




SPACEB 




1556 

007414 

104404 




TSTCUR 


•TEST CONTROLLER READY 


1557 

007416 

104400 




HLT 


•ERROR, CONTROLLER DID NOT 60 READY 


1558 

007420 

0527/7 

040000 

171404 


BIS 

440000•®MTRO 



1559 

007426 

104442 




MIN3BC 


•set byte count to minus three 


1 5t>0 

007430 

104436 




RBUFCA 




1561 

007432 

013700 

001114 



MOV 

tcro.ro 



1562 

007436 

005300 




DEC 

HO 



1563 

007440 

0100/7 

171356 



MOV 

ro,s>mtc 

•READ, aoo BpI. 9 TRACK 


1564 

007444 

006037 

177570 



ROR 

SR 



1565 

007450 

103003 




BCC 

• + 10 



1566 

007452 

0427// 

020000 

171342 


me 

420000*3MTC 

•MAKE 7 TRACK 


1567 

0 0 7 4 6 0 

0052/7 

171336 



INC 

SMTC * IGO 



1568 

007464 

1044U4 




TSTCUR 


•TEST CONTROLLER READY 


1569 

007466 

3 04400 




HLT 


•ERROR, CONTROLLER OID NOT 60 READY 


1570 

007470 

0327/7 

010000 

171322 


BIT 

410000«3HTS 



1571 

007476 

OOlGUl 




ONE 

• *4 



1572 

007500 

104400 




HLT 

•ERROR. PARITY ERROR (BIT 12) NOT »i 


1573 

007502 

0 17 7 u 0 

171322 



MO V 

SMTD *Ro 



1574 

007506 

042700 

177000 



BIC 

4l770O0.R0 



1575 

007512 

006037 

177570 



ROR 

SR 



1576 

00751b 

103411 




DCS 

PAR4 



1577 

007520 

022700 

000004 



CMP 

44,RO 



1576 

007524 

0014o 1 




BLQ 

• 4-4 



1579 

007526 

104400 




HLT 

lERRORt LPC NOT eOQi* OR LP NOT REAO PROPERLY 

1580 

007530 

000404 




BR 

PAR4 



1581 

007532 

02270 0 

000077 


PAR3| 

CMP 

477.R0 



1562 

007536 

0014u i 




BEG 

.♦4 



1583 

007540 

104400 




HLT 

1 ERROR • LPC NOT s77 (7 TRACK) 


1584 

007542 

10 4 4 M 



PAR4I 

PwRCLR 




1585 

007544 

0327 /7 

010000 

171246 


BIT 

4ioooo.anTs 



1566 

007552 

001401 




BLQ 

.♦4 



1567 

007654 

104400 




HLT 

1 ERROR , POWER CLEAR DIDN'T CLEAR PARITY 

ERROR (B 

1588 

007556 

104402 




SCOPE 




1589 

007560 

006037 

177570 



ROR 

SR t IS 

SWC=1 TO INOICATE 7 CHANNEL 


1590 

007564 

10 3 0 0 2 




BCC 

.46 (NO 



1591 

007566 

000137 

010252 



JMP 

TMRT 1 YES 

i SKIP CKC TEST 


1592 





l*****************+*«***«***«******««************* ********************* 

1593 





1 TEST 

CRC GENERATION AND LPC 

CHARACTER 


1594 





•PROCEDURE USED IS TC WRITE 

A 4 BYTE RECORD AND READ IT BACK. 


1595 





• THEN 

THE CRC 

WRITTEN IS COMPARED WITH CRC CALCULATED. 


1596 





• THtN 

RECORD IS REAO AGAIN AND LPC SHOULD = CRC 




•MAIN* 

MACRO V06-03 05 

-NOV-74 

12*39 PA 3E 1-28 





1597 





1 TEST IS REPEATEO FOR ALL DATA COMBINATIONS* 


1598 

007572 

1050 37 

001044 


CRCTST* 

CLRO 

TEMP tINITIALIZE OATA 


1599 





iCALCULATE parity of oata to 

BE WRITTEN IN CRC TEST (HAKE 

parity ODO) 

1600 

007576 

112737 

000001 

001045 

CRCTi: 

MOVH 

hi*temp+iiinitialize odo parity 


1601 

007604 

113701 

001044 



MOVU 

TCMPtRl 



160 2 

007610 

105701 



crcpi: 

T STB 

R1 

IIS data=o 


1603 

007612 

ooioui 




13nE 

.♦4 INO 



1604 

007614 

000410 




UR 

CRCT2 

iyes, NOW temp-1 CONTAINS parity bit 

1605 

0U7616 

1063UI 




ASLH Hi 

ISHIFT DATA BITS LEFT jNTO C BIT 

1 60b 

007620 

103002 




BCC 

# +6 1 WAS 

BIT-07 


1607 

007622 

105137 

001045 



COMB 

TEMP+1 INO* 

complement parity 


1606 

007626 

042737 

177000 

001044 


BIC 

#177000* TEMP 



1609 

007634 

000763 




BR 

CRCPI IDO 

A6AIN UNTIL DATArO 


1610 

007636 

0137^7 

001044 

0010&2 

CRCT2J 

MOV 

TEMP *CRXORl 

ISAVE 1ST DATA BYTE (♦PARITY) 


1611 

001644 

013700 

001044 



MOV 

TEMP * RO 



1612 

007650 

104434 




rotcmp 




1613 

007652 

010037 

001054 



MOV 

R0.CRROT1 

• SAVE ROTATE 


1614 

007656 

013 7 U 1 

001044 



MOV 

TEMP.R1 



1615 

007662 

104432 




XCLOR 




1616 

007664 

010137 

001056 



MOV 

Rl«CRX0R2 



1617 

007670 

C137UQ 

001056 



MOV 

CRXOR2,RO 



1616 

007674 

104434 




ROTCMP 




1619 

007676 

0100^7 

001060 



MOV 

RO * CRR0T2 



1620 

007702 

013701 

001044 



MOV 

TEMP * Rl 



1621 

007 706 

104432 




XCLOR 




1622 

007710 

0101^7 

001062 



MOV 

R1.CRXOR3 



1623 

007714 

013 7 U 0 

001062 



MOV 

CRXOR3,RO 



1624 

007720 

104434 




ROTCMP 




1625 

007722 

010037 

001064 



MOV 

RO«CRR0T3 



162b 

007726 

013701 

001044 



MOV 

TEMP.Ri 



1627 

007732 

1 044 :>2 




XCLOR 




1628 

007734 

010157 

001066 



MOV 

R1*CRX0R4 



1629 

007740 

013700 

001066 



MOV 

CRXOR4*R0 



1630 

007744 

104434 




ROfCMP 




1631 

007746 

010037 

001070 



MOv 

RO*CRROT4 



1632 

007752 

0 1 0 0 0 1 




MOV 

R0.R1 

•COMPLEMENT all EXCEPT 4,6 


1633 

007754 

04 2 7 0 1 

000727 



BIC 

4727«Rl 



1634 

007760 

005100 




COM 

RO 



1635 

007762 

042700 

000050 



BIC 

H50.R0 



1636 

007766 

05010 0 




BIS 

R1.R0 



1 c» 3 7 

007770 

C10037 

001072 



MOV 

RO ♦ CRCWRT 



1636 

007774 

042737 

177000 

001072 


BIC 

H177000«CRCWRTlSAVE CRC CALCUEATEO 


16 39 





t WRITE 

A FOUR BYTE RECORD 



1640 





iALL BYTES ARE 

= therefore epc should s crc 


1641 

010002 

104402 



CWRITEt 

SCOPE 




1642 

010004 

113757 

001044 

014556 


MQ VO 

TEMP•WUUF 



1643 

010012 

113737 

001044 

014557 


M 0 V B 

TEMP *WBUF+1 



1644 

010020 

013737 

014556 

014560 


MOV 

WBUF * wBUF+2 



1 b4 5 

010026 

104434 




WHUfCA 




164 6 

010030 

104444 




MIN40C 


•SET BYTE COUNT TO MINUS FOUR 


1647 

010032 

104432 




SELECT 




1648 

010034 

104404 




TSTCUH 


•TEST CONTROLLER READY 


164 9 

010036 

104400 




ML T 


IEKROR, CONTROLLER OIO NOT GO 

READY 

166 0 

010040 

10441b 




WRITE 




1651 

010042 

104404 




TSTCUR 


ITEST CONTROLLER READY 


1652 

010044 

104400 




ML T 


•ERROR* CONTROLLER OIO NOT 60 

READY 

1653 

010046 

104440 




MIN1UC 


istr byte count to minus one 




\IN. 

MACRO VO6*03 05 

•NOV-74 

12139 PA3E 1-29 


1654 

010050 

104430 



SPACES 


1655 

010052 

104404 



TSTCUR 

ITEST CONTROLLER READY 

1656 

010054 

10440 0 



HLT 

(ERROR* CONTROLLER DID NOT GO READY 

165? 

010056 

104456 



RBUFCA 


1656 

010060 

104444 



MIN4BC 

(SET BYTE COUNT TO MINUS FOUR 

1659 

010062 

1044*0 



RLAU 


1660 

010064 

1044 U 4 



TSTCUR 

ITEST CONTROLLER READY 

1661 

010066 

104400 



HLT 

(ERROR, CONTROLLER DID NOT GO READY 

1662 

010070 

023757 

014556 

014722 

CMP 

UBUF.RBUFiyERE 1ST 2 ByTES WRITTEN AND READ OK? 

1663 

010076 

003401 



BEG 

♦♦4 (YES 

1664 

010100 

104400 



HLT 

(ERROR OATA WRITTEN NOT = DATA READ 

1665 

010102 

023737 

014560 

014724 

CMP 

WBUF+2 »RBUF + 2 (WERE 2ND 2 BYTES WRITTEN AND READ OK? 

1666 

010110 

001401 



BEG 

.♦4 (YES 

1667 

010112 

1 0 4 4 U 0 



HLT 

(ERROR, OATA WRITTEN NOT s OATA READ 

1660 

010114 

0177U0 

170710 


MOV 

3MTD,RO (GET CRC 

1669 

010120 

017701 

170706 


MOV 

oJMTRD*R1 (GET LPC ERROR 

1670 

010124 

042700 

177000 


BIC 

4177000,80 (MASK CMC 

1671 

010130 

042701 

177000 


me 

4177000,R1 (MASK LPC ERROR 

1672 

010134 

001401 



BEG 

• ♦4 

1673 

010136 

104400 



HLT 

(ERROR, LPC NOT s 0 

1674 

010140 

02003 7 

001072 


CMP 

RO, CRCWRT 

1675 

010144 

001401 



BEG 

.44 

1676 

010146 

104400 



HLT 

(ERROR CRC WRITTEN NOT a CRC CALCULATED 

1677 

010150 

104440 



MlNltlC 

(SET BYTE COUNT TO MINUS ONE 

1670 

010152 

104430 



SPACEB 


1679 

010154 

104404 



TSTCUR 

ITEST CONTROLLER READY 

1660 

010156 

104400 



HLT 

1 ERROR, CONTROLLER DID NOT GO READY 

1661 

010160 

10444 4 



MIN4BC 

iset byte count to minus four 

1662 

010162 

104436 



lUiUFCA 


1663 

010164 

052777 

040000 

170640 

BIS 

440000,a«TR0 lENABLE LPC READ 

1684 

010172 

1044^0 



RL AO 


1685 

010174 

104404 



TSTCUR 

ITEST CONTROLLER READY 

lLQt> 

010176 

1 0 4 4 u 0 



ML T 

(ERROR, CONTROLLER DIO NOT GO READY 

1687 

010200 

0177^0 

170624 


MOV 

dMTD,R0 

1 668 

010204 

0427^0 

177000 


BIC 

4177000,RO 

1689 

010210 

0 2 0 0 -U 

001072 


CMP 

RO §CRCwRT 

1690 

010214 

001401 



BEG 

.♦4 

1691 

010216 

104400 



HLT 

(ERROR, LPC NOTsCRC 

1692 

010220 

005057 

001072 


CLR 

CRCWRT 

1693 

010224 

0050*7 

170602 


CLR 

3MTRD lENABLE CRC REAO 

1694 

010230 

032737 

040000 

177570 

BIT 

440000•SR IIS SU 14 SET? 

1695 

010236 

001OO 5 



ONE 

• + 14 

1696 

0 l C 2 4 0 

105257 

001044 


INCB 

TEMP 1+1 TO DATA PATTERN 

1697 

010244 

001402 



BEQ 

TMRT 

1698 

010246 

00013 7 

007576 


JMP 

CRCT1 

1699 





| ******* *#***********♦***♦**********♦*+******♦**** ********************* 

1700 





iTEST TIMER (BIT 15) TO BE COMPLIMENTING 

1701 

010252 

104402 



thrT: scope 


1702 

010254 

005000 



CLK 

RO 

1703 

010256 

005777 

170550 


T ST 

SMTRD 

1704 

010262 

1000U3 



HPL 

. + 10 

1705 

030264 

005200 



INC 

RO IDELAY LONG TIME 

1706 

010266 

0013*3 



BNE 

.-10 t 

1707 

010270 

104400 



HLT 

1 ERROR, TIMER (BIT 15) NEVtR eO 

1 708 

010272 

005000 



CLR 

RO 

1709 

010274 

005777 

170532 


TST 

oJMTRD 

1710 

010300 

100403 



BMI 

. + 10 



♦main. MACRO V06-Q3 05-NOV-74 12:39 PA3E 1*30 


1711 

010302 

00&2U0 



INC 

RO 

1712 

010304 

0013/3 



8NE 

* *10 

1713 

010306 

104400 



HLT 

(ERROR, TIMER (BIT 15) NEVER si 

1714 





!♦*** manual intervention tests **** 

1715 





1 ft************************************************ ********************* 

1716 





1 


1717 

010310 

104414 



PWRCLR 


1716 

010312 

00S03 7 

001092 


clr 

tmtnfl 

1719 

010316 

104402 



SCOPE 


172 0 

010520 

104424 



REWIND 


1721 

010322 

104404 



TSTCUR 

(TEST CONTROLLER READY 

172? 

010324 

104 4 0 0 



HLT 

(ERROR* CONTROLLER DID NOT 60 REApt 

1723 

010326 

032737 

004000 

177570 

BIT 

#4000#SR 

1724 

010334 

001402 



BEQ 

.46 

1725 

010336 

000137 

011304 


JMP 

TSTEND 

1726 

010342 

012 7 U 2 

013144 


MOV 

#MSG3*R2 

1727 

010346 

1044-12 



PRTMSG 

(PRINT MESSAGE IN 3R2 

1728 

010350 

oooouo 



MALT 

(WAIT FOR OPERATOR TO CONTINUE 

1729 

010352 

0327->7 

004000 

177570 

bit 

84000*SR IXNHIBIT TESTS? 

1730 

010360 

00140 2 



BEQ 

.+6 (NO 

1731 

010362 

000137 

011504 


JMP 

TSTEND (YES 

1732 





|*«****4+. ««*+*********♦********************«*«»«* •*******£*4********** 

1733 





(TEST unit select switch 

1734 

010366 

013 7 u 0 

001106 


MOV 

TCSL.RO 

1735 

010372 

032700 

002000 


BIT 

X2000.R0 (IS TESTED UNIT IN MOST SIG SELECT ADDRESSES 

1736 

010376 

001013 



BNf. 

USSi (YES 

1737 

010400 

0 050 / 7 

170416 


CLR 

SMTC (NO 

1738 

010404 

112737 

000060 

013276 

MOVB 

860.MSG4+16 

1739 

010412 

012737 

002000 

001132 

MOV 

X2000.USLEN 

1740 

010420 

005037 

001044 


CLR 

TEMP 

174 1 

010424 

000414 



OR 

USS 

1742 

010426 

112737 

000064 

013276 

USS1I MOVB 

#64 ,MS64«fl6 

1743 

010434 

0127/7 

002000 

170360 

MOV 

«2ooo*smtc 

1744 

010442 

012737 

004000 

001132 

MOV 

X4000.USLEN 

1743 

010450 

012737 

002000 

001044 

MOV 

«2000.TEMP 

1746 

010456 

012702 

013260 


USSt MOV 

8MSG4.R2 

174 7 

010462 

104412 



prtmsg 

1PRINT MESSAGE in R2 

1748 

010464 

000QO0 



HALT 


1749 

010466 

104402 



SCOPE 


1750 

010470 

013 / / 7 

001044 

170324 

MOV 

TEMp.3MTC(SELECT UNIT 

1751 

010476 

0327/7 

000100 

170314 

BIT 

XlOO.QMTSlIS SELECT REMOTE SET 

1752 

010504 

0010U1 



bne 

.♦4 

1753 

010506 

1044 u 0 



HLT 

1 ERROR, PROPER UNIT NOT SELECTED 

1754 

010510 

1057/7 

170306 


1ST8 

olMTC 

1755 

010514 

100401 



BMI 

.♦4 

1756 

010516 

104400 



HLT 

(ERROR, CU READY NOT SET, IS UNIT SELECTED? 

1757 

010520 

03277 7 

000040 

170272 

BIT 

X40,aMTS 

1758 

010526 

OOlOol 



BNE 

.44 

1759 

010530 

104400 



HLT 

(ERROR, BOT AND TUR NOT SET# IS UNIT ON LINE & £ 

1760 

010532 

104402 



SCOPE 


1761 

010534 

105237 

013276 


INCB 

MSG4416 (INCREMENT UNIT tf 

1762 

010540 

105237 

001045 


INC0 

TEMP-fl 

1763 

010544 

023737 

001132 

001044 

CMP 

USLEN,T£MP 1 DONE ALL UNITS? 

1764 

010552 

001341 



BNE 

USS (NO 

1765 





ITEST ONLINE-OFFLINE SWITCH 

1766 

010554 

10 4 4 0 2 



SCOPE 


1767 

010556 

1137U0 

001107 


MOVB 

TCSl+1 t R0 
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176a 

010562 

032700 

000017 


BIT 

#17,R0 



1769 

010566 

052700 

000060 


BIS 

W60.R0 



1770 

010572 

010Q37 

001044 


MOV 

RO • TEMP 



1771 

010576 

113737 

001044 

013336 

MOVB 

TEMP.MSG5+16 


1772 

010604 

012702 

013320 


MOV 

0MSG5 #R2 



1/73 

010610 

104412 



PRTMSG 


IPRINT MESSAGE IN R2 


1774 

010612 

oooooo 



HALT 




1775 

010614 

1044 0 2 



SCOPE 




1776 

010616 

104452 



SELECT 




1777 

010620 

0327/7 

000100 

170172 

BIT 

moo* 3MTS 



1776 

010626 

001401 



BEO 

*44 



1779 

010630 

104400 



HIT 


1 ERROR* SELECT REMOTE SET* 

UNIT NOT OFF-LINE 

1760 





I************************************************* 

*•*«*•••«****••**••*• 

1761 





ITEST WRITE LOCK SWITCH 



1762 

010632 

113757 

001044 

013472 

MO VO 

TEMP.MSG6+100 


1703 

010640 

012702 

013372 


MOV 

«MSG6*R2 



178** 

010644 

104412 



PRTMSG 


IPRINT MESSAGE IN R2 


1785 

010646 

oooooo 



halt 




1786 

010650 

104 4 U 2 



SCOPE 




1767 

010652 

104452 



select 




1766 

010654 

032 7*7 

000004 

170136 

BIT 

# 4 , i?MTS 

IIS WRITE LOCK SET? 


1769 

010662 

001001 



BNC 

.♦4 

I YES 


1790 

010664 

1044 00 



HLT 


1 ERROR• WRL IbIT 2 > NOT SET WITH WRITE LOCK RING REMOVED 

1791 





|************************************************* 

********************* 

1792 





•TEST WRITC WITH WRITE LOCK RING REMOVED TO CAUSE ILLEGAL COhMANO 

1793 

010666 

104402 



SCOPE 




1794 

016670 

0060 7 7 

170130 


CLR 

SBC 



1795 

010674 

0050*7 

170126 


CLR 

SCA 



1796 

Cl 0 700 

1044*6 



WHITE 




1797 

01C702 

104 40 4 



TSTCUR 


ITEST CONTROLLER READY 


1796 

010704 

1044U0 



ML 7 


IEkROR, controller 010 

NOT 60 READY 

1799 

010706 

0057/7 

170110 


TST 

SMTC 



1600 

010712 

100401 



OMI 

*44 


, 

1801 

010714 

104400 



HLT 


I ERROR (BIT 15> NOT SET AFTER WRITE WITH WHITE LK RNG REM'D 

1802 









1803 

010716 

005777 

170076 


TST 

SMTS 



1804 

010722 

100401 



BMI 

,44 



1605 

010724 

104400 



HLT 


lERROR• ILLEGAL COMMAND |B\T 15| NOT SET AFTER WRT CHD 

1806 





!*************. 

************************************ 

********************* 

1807 





|TEST OFFLINE 1 

FUNCTION TO SET UNIT OFFLINE ANO REWI 

I NO TO BO? 

1808 

010726 

104402 



SCOPE 




1809 

010730 

113757 

001044 

013700 

mgvb 

TEMPtMSG? 

4153 


1810 

010736 

012702 

013525 


MOV 

#MSG7»R2 



1811 

010 742 

104412 



PRTMSG 


1 PRINT MESSAGE IN R2 


1612 

010744 

oooouo 



HALT 




1613 

010746 

104414 



PWRCLR 




1614 

010750 

104452 



SELECT 




1815 

010752 

1044 0 4 



TSTCUR 


ITEST CONTROLLER READY 


1816 

010754 

104400 



HLT 


1 ERROR« CONTROLLER OID 

NOT 60 READY 

1617 

010756 

0327/7 

000100 

170034 

BIT 

moo«SMTS 



1818 

010764 

001001 



ONL 

.44 



1819 

010766 

104400 



HLT 


I ERROR• UNIT 0 NOT ON LINE 

OFF BOT 

1820 

010770 

104402 



SCOPE 




1821 

010772 

0137/7 

001112 

170022 

MOV 

TCOL*SHTC 

IGO OFFLINE 


1822 

011000 

104404 



TSTCUR 


ITEST CONTROLLER READY 


1623 

011002 

1 0 4 4 0 0 



HLT 


lERROR, CONTROLLER DIO 

NOT GO READY* 

162 4 

on 004 

0327/7 

000100 

170006 

BIT 

mootSMTS 





•MAIN. MACRO V06-03 05-NOV-74 12539 PA3E 1-32 


1825 

011012 

001401 




060 

.44 


1628 

011014 

104400 




HLT 

(ERROR' SELR »BIT 6( NOT CLEARED BT OFFLINE COMMAND 

1827 






IRE-SET 

UNIT 


1826 

011016 

1044U2 




SCORE 



1829 

011020 

113737 

001044 

014014 


MOVB 

TEMP,MS66416 

1830 

011026 

012702 

013776 



MOV 

UMSG6«R2 


1831 

011032 

104412 




RRTmSG 


IPRINT MESSAGE IN R2 

1032 

011034 

oooooo 




HALT 



1633 





1 *********♦♦♦****************************** ******* ***#***««6***4*4*»*** 

1834 





1 TEST 

ous grant 

LATE (BIT 

111 TO-1 

1835 





• halt 

PROCESSOR 

: DURING an 

NPR SEQUENCE 

1636 

011036 

0127U2 

014057 



MOV 

atfSG9,R2 


1637 

011 U 4 2 

104412 




PRTMSG 


1 PRINT MESSAGE IN R2 

1838 

011044 

OOOUuO 




HALT 



1839 

011046 

006237 

001042 



INC 

TMTNFL 


18^0 

011052 

032737 

000002 

177570 


HIT 

42,SR 


1641 

011 o6() 

0010^2 




ONE 

BGLl 


1842 

011062 

012702 

014201 



MOV 

tiMSGlOiR2 


1843 

011066 

104412 




PRTMSG 


IPKINT MESSAGE IN R2 

1644 

011070 

104402 




SCOPE 



1845 

011072 

104432 




select 



1646 

011074 

1044U4 




TSTCUR 


ITEST CONTROLLER READY 

164 7 

011076 

1044oQ 




HLT 


IERROR, CONTROLLER DIO NOT 60 READY 

1648 

011100 

0127/7 

177756 

167716 


MOV 

tt-ie.iSBC 


184 9 

011106 

104434 




wBUFCA 



1850 

011110 

104416 




WRITE 



1851 

011112 

0 0^0^0 




CLR 

R 0 


1652 

011114 

022777 

014560 

167704 


CMP 

toWBuF+2t3CA 

1853 

011122 

0 024 0 3 




BlT 

. + 10 

lUAIT FOR NPR SEOUENCE TO START 

1654 

011124 

00520 0 




INC 

RO 


1855 

011126 

001403 




BEQ 

*410 


1856 

011130 

0007/1 




8 R 

*•14 


1857 

011132 

OOOOOO 




HALT 


(CAUSE B6L« UAIT FOR CONTINUE 

1858 

011134 

000401 




BR 

.44 


1859 

011135 

104400 




HLT 


(ERROR, CA DID NOT INC EHENT ON fciRITE COMMAND 

I 860 

011140 

104404 




TSTCUR 



1661 

011142 

104400 




HLT 


(ERROR, TU DIO NOT 60 REAOT 

1862 

011144 

0327 n 

004000 

167646 


BIT 

»4O00«aMTS 


1663 

011152 

001001 




ONE 

.44 


1664 

011154 

104400 




HLT 


(ERROR, DSL. (BIT 111 NOT«sl«« 

1865 

011156 

0057 / 7 

167640 



TST 

3MTC 


1666 

011162 

100401 




UMI 

.44 


1867 

011164 

104400 




HLT 


(ERROR, B6L DIO NOT SET ERROR STATUS 

1866 

01 H66 

104414 




PwRCLR 



1869 

011170 

03277 7 

004000 

167622 


BIT 

#4000•3MTS 


1870 

011176 

001401 




BEQ 

.44 


1671 

011200 

104400 




HLT 


(ERROR, POWER CLEAR DIDN'T CLEAR BGL JBIT 11) 

1072 

011202 

104402 




SCOPE 



1673 

011204 

000437 




BR 

TSTENO 


1674 

011206 

0l27u2 

014247 


BGLll 

MOV 

0MSG11.R2 


1875 

011212 

104412 




PRTMS6 


(PRINT MESSAGE IN R2 

1676 

011214 

104402 




SCOPE 



1677 

011216 

104432 




SELECT 



1876 

011220 

104 4 U 4 




TSTCUR 


(TEST CONTROLLER READY 

1879 

011222 

104400 




HLT 


(ERROR, CONTROLLER OIO NOT GO READY 

1880 

011224 

0127/7 

177756 

167572 


MOV 

»-ld.«aBC 


1881 

011232 

104434 




WHUFCA 





•WAIN. 

MACRO V06-G3 05 

-NOV-74 

12*39 PA3E 1-33 




1862 

011234 

GOOOUO 




HALT 



1883 

011236 

104416 




WRITE 



1864 

011240 

000240 




NOP 



1865 

011242 

000240 




NOP 



1806 

011244 

032777 

004000 

167546 


BIT 

«4000.aMTS 


1887 

011252 

001001 




ONE 

• ♦4 


1888 

011254 

1044UQ 




HLT 

TERROR, BGL (BIT H) NOT«l 

1889 

011256 

0057/7 

167540 



TST 

3MTC 


1690 

011262 

100401 




HMI 

• 44 


1891 

011264 

104400 




HLT 


TERROR. BGL DID NOT SET ERROR STATUS 

1092 

011266 

104414 




PWRCLR 



1693 

011270 

0327 n 

004000 

167522 


BIT 

44000.SMTS 


1694 

011276 

001401 




UEQ 

.44 


1895 

011300 

104 4 0 0 




HLT 

TERROR. POWER ClEAR DlON*T CLEAR BGL (BIT 111 

1896 

011 302 

104402 




SCOPE 



1097 





iBELL ON PASS i 

complete 


1898 

011304 

012702 

014541 


TSTENO! 

MOV 

4HSG13 ,R2 


1899 

011310 

104412 




PRTMS6 


TPRINT MESSAGE IN R2 

1900 

011312 

105237 

014554 



INCH 

MSbl3*13 


1901 

011316 

122737 

000072 

014554 


CMPB 

#72, MSG13413 


1902 

011324 

0010*5 




HNE 

BELL 


1903 

011326 

112737 

000060 

014554 


MG VO 

U60,MSG13413 


1904 

Oil 334 

105237 

014553 



INCB 

MSG13+12 


1905 

011340 

122737 

000072 

014553 


CMPB 

472,MS613+12 


1906 

011346 

001014 




RNE 

BELL 


1907 

011350 

112737 

000060 

014553 


MO VO 

460 « MSG 13+12 


1908 

011356 

105237 

014552 



INCB 

MS613+11 


1909 

011 362 

122737 

000072 

014552 


CMPB 

472.MSG13+11 


1910 

011370 

001003 




ONE 

BELL 


1911 

011372 

112737 

000060 

014552 


MO VB 

«60,MS61341I 


1912 

011400 

1057/7 

167432 


BELLI 

Tsro 

a'TCSK 


1913 

011404 

1003/5 




UPL 

.-4 


1914 

011406 

0127/7 

000207 

167420 


MOV 

4207 , alTOBR 


1915 

011414 

005000 




CLR 

RO 


1916 

011416 

005200 




INC 

RO 


1917 

011420 

0013/6 




bne 

.-2 


1918 

011422 

104404 




TSTCUH 


ITEST CONTROLLER READY 

1919 

011424 

104400 




HLT 


TERROR, CONTROLLER DIO NOT 60 READY 

1920 

011426 

1044*4 




REWIND 



1921 

011430 

104404 




TSTCUR 


1 TEST CONTROLLER REAOY 

1922 

011432 

1 04400 




HLT 


TERROR, CONTROLLER 010 NOT 60 READY 

1923 

011434 

104430 




WAITTR 



1924 

011436 

00 02 H 0 




NOP 



1925 

011440 

104430 




WAITTR 



1926 

011442 

104400 




HLT 


TERROR, TAPE UNIT READY QIO NOT 60 SET 

192 7 

011444 

000137 

001350 



JMP 

BEGIN 

T GO TO START OF TEST 

1928 









1929 






!***♦ 

SUBROUTINES **** 

1930 









1931 





| ******* 

******* 

*************4 

******* ** ************** ********************* 

1932 





1 ILLEGAL tape 

interrupt subroutine 

1933 

011450 

013737 

001044 

001050 

mttrp: 

MOV 

TEMP,temps 

ISAVE TEMP 

1934 

011456 

013737 

000036 

001046 


MOV 

36 * TEMPP 

1 STORE TRAP PRIORITY 

1935 

011464 

012737 

000340 

000036 


MOV 

4340,36 

IMAKE TRAP PRIORITY 7 

1936 

011472 

011637 

001044 



MOV 

alSP, TEMP 

1 Temp contains pc of illegal INTERRUPT 

1937 

011476 

104400 




HLT 


ierror, illegal tape interrupt 

1938 

011500 

013737 

001050 

001044 


MOV 

TEMPS.TEMP 

1 RESTORE TEMP 
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1939 

011506 

013737 

001046 

000036 


MOV 

TEMPP.36 IRESTORE TRAP PRIORITY 

1940 

011514 

000002 




RTI 

1 RETURN from interrupt 

1941 








1942 





1 ************************************************* ********************* 

1943 





iTRAp HANDLER 


1944 

011516 

011666 

000002 


TRAP34 J 

MOV 

aSP,2<SP) I PUSH RETURN AOORESS UP INTO STACK 

1945 

011522 

162716 

000002 



SUQ 

#2,»SP ICALCULATE TRAP INSTRUCTION ADDRESS 

1946 

011526 

013646 




MOV 

a}(SP ) + ,«»( SP) 1 GET TRAP INSTRUCTION 

1947 

011530 

0627^6 

105136 



ADD 

4TABLE-1044 00,olSP ICALCULATE TABLE POINTER 

1946 

011534 

0136U7 




MOV 

skspi+.pc *pop stack* go to subroutine 

194 9 

011536 

011620 



table; 

PRINT 


1950 

011540 

012034 


* 


SCOPEA 


1951 

011542 

012120 




CURTST 


1952 

011544 

012174 




RGSTST 


1953 

011546 

012204 




rgrtst 


1954 

011550 

01224 o 




TOP 


1955 

011552 

0123c4 




STChl2 


1956 

011554 

012334 




STCWl 


1957 

011556 

012344 




STCRD 


1956 

011560 

012394 




STCfF 


1959 

011562 

012364 




STCR* 


I960 

011564 

0123^4 




STCSF 


1961 

011566 

012 4 0 4 




srcso 


1962 

011570 

012414 




sicsl 


1963 

011572 

012424 




CAWB 


1964 

011574 

012434 




CARR 


1965 

011576 

012444 




BCMl 


1966 

011600 

012454 




6CM3 

- 

1967 

011602 

0124^4 




BCM4 


1968 

011604 

012474 




EOFTST 


1969 

011606 

012146 




TSTRUY 


1970 

011610 

012 5o 4 




CRCXOR 


1971 

011612 

01251b 




CRCRQT 


1972 

01)614 

012552 




octprt 


1973 

011616 

012660 




OC TP 


1974 








1975 





I************************************************* *****««*«****%******* 

1976 





(ENTERED with 

SYSTEM TRAP CALL(HLT) 

1977 





(PRINT 

PC. STATUS REGISTER, COMMANO REGISTER, ByTE COUNT, CURRENT ADORES 

19 78 

011620 

C127U2 

001134 


print: 

MOV 

tfSAVE «R2 

1979 

011624 

011612 




MOV 

(SPI•(R2) 

1960 

011626 

162722 

000002 



SUB 

82 » (R2) 4 

1981 

011632 

017722 

167162 



MOV 

3MT S• (R2)♦ 

1982 

011636 

017722 

167160 



MOV 

tfMTC, ( R2 ) 4 

1983 

011642 

017722 

167156 



MOV 

2BC,(R2)4 

196** 

011646 

017722 

167154 



MOV 

a! C A , ( R 2 ) 4 

1965 

011652 

017722 

167152 



MOV 

SMID*(R2 I 4 

1966 

011656 

042712 

177000 



QIC 

4177000,(R2) 

1967 

011662 

017722 

167144 



MOV 

alMTRD« (82)4 

1966 

011666 

0137 c 2 

001044 



MOV 

TEMP,(R2)4 

1989 

011672 

013722 

001072 



MOV 

CRCWRT,(R2)4 

1990 

011676 

033727 

177570 

020000 


BIT 

SR,420000 * TEST FOR INHIBIT PRINT OUT 

1991 

011704 

001401 




BEQ 

# 44 (BRANCH TO PRINT 

1992 

011 706 

0 0 020 7 




RTS 

PC (INHIBIT, RETURN TO MAIN SI REAM 

1993 

011710 

012762 

013027 



MOV 

4MS61,R2 

1994 

011714 

005737 

001100 



1ST 

PHINT1 

1995 

011720 

001402 




BEQ 

«46 
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1996 

011722 

012702 

013141 

1997 

011726 

104412 


1998 

011730 

005247 

001100 

1999 

011734 

013702 

001134 

2000 

011740 

1044^6 


2001 

011742 

013702 

001136 

2002 

011746 

104456 


2003 

011750 

013702 

001140 

2004 

011754 

104456 


2005 

011756 

013702 

001142 

2006 

011762 

104456 


2007 

011764 

013702 

001144 

2008 

011770 

104456 


2009 

011772 

0137o 2 

001146 

2010 

011776 

104456 


2011 

OlrOOQ 

013702 

001150 

2012 

012004 

104456 


2013 

012006 

013702 

001152 

2014 

012012 

104456 


2015 

012014 

013702 

001154 

2016 

012020 

104456 


201? 

012022 

005737 

177570 

2018 

01202b 

lOOGOi 


2019 

0 12()30 

oooouo 


2020 

012032 

00020 7 



2021 

2022 

2023 

2024 

2025 012034 0327^7 040000 177570 

2026 012042 QOJQUl 

2027 012044 01163? 001102 

2028 012050 000207 

2029 012052 022606 

2030 012054 005737 001042 

2031 012060 0 01413 

2032 012062 0327/7 002000 166730 

2033 012070 001411 

2034 012072 104424 

2035 012074 Q137o2 001020 

2036 012X00 012703 000001 

2037 012104 012704 000300 

2036 0121 10 10441 6 

2039 012112 104400 

2040 012114 0001/7 166762 

2041 

2042 

2043 

2044 

2045 

2046 

2047 

2048 

2049 012120 013782 001022 

2050 012124 012703 000200 

2051 012130 012704 0000!,' 

2052 012134 I044u6 


MOV *MS62tR2 

PRTMSG IPRINT MESSAGE IN 32 

INC PRINT1 

MOV SAVE «R2 

PRTOCT 

MOV SAVE+2 *R2 

PRTOCT 

MOV SAVE + 4 *R2 

PRTOCT 

MOV SAVE + 6 *R2 

PRTOCT 

MOV SAVE + 10 «R2 

PRTOCT 

MOV SAVE + 12 *R2 

PRTOCT 

MOV SAVE+14.R2 

PRTOCT 

MOy SAVE4-16 «R2 

PRTOCT 

MOV SAVE+20•R2 

PRTOCT 

TST SR (CHECK SR FOR HALT SWITCH 

BPL .44 

HALT (HALT ON ERROR uP 

RTS PC (EXIT 


I************************************************* ******•**«*♦+«***»**» 

(EnTErEO WITH system TRAP caluscopei 
(SCOPE LOOP FOR EACH TEST 


SCOPEA5 

BIT 

#40000*SR 


(TEST SR FOR SCOPE 


BMC 

SCOPEB 

(YES 

SCOPE 


MOV 

ciSP * RETURN 

(SAVE SCOPE RETURN POINTER 


RTS 

PC 

(RETURN INLINE-NEXT TEST 

scopeb: 

CMP 

(SP>+«SP 


(REPOSITION THE STACK 


TST 

TMTNFL 


(IS PROGRAM IN TAPE MOTION TESTS? 


BEQ 

SCPRT 


(NO. RETURN TO BE6INING OF TEST 


BIT 

#2000.SMTS 

(TEST EOT STATUS 


BEQ 

rewind 

SCPRT 


(RETURN IF NOT AT EOT 


MOV 

MTS,R2 


(SELECT STATUS REGISTE 


MOV 

#1 «R3 


(MASK TUR BIT 


MOV 

#300•R4 


(SET UP UELAY 


TSTRGS 

Hl.T 



(ERROR, UNIT DID NOT REWIND 

scpht: 

JMP 

BRETURN 

(SCOPE RETURN 


********************* 


(Entered with system trap calutstcuri 

I TEST CONTROLLER READY SUBROUTINE 

t arguements: 

( EXIT TO RETURN IF TIMEOUT 
I EXIT TO RETURN 42 IF NOT TIMEOUT 


CURTST: MOV MTC * R2 (SELECT COMMAND REGISTER 

MOV # 2 0 0 * R 3 (MASK CUR BIT 

MOV r\*R4 (SET UP DELAY 

TSTPGS 
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012136 000207 

012140 062716 000002 

012144 000207 


RTS PC 

ADD #2«9SP 

RTS PC 


ItXIT 

i increment stack pointer 

I EXIT 


******* *****+****«*****«**** 


iENTCRED with system trap calliwaittri 

ITEST TAPt unit READY SUBROUTINE 
I ARGUMENTS* 

I EXIT to RETURN *2 IF NOT TIMEOUT 
1 EXIT TO RETURN IF TIMEOUT 


2063 

012146 

01370 2 

001020 

tstroy: mov 

MTS «R2 

ISLLECT status register 

2064 

012152 

012703 

OOOOOl 

MOV 

«1 *R3 

IMASK TUR BIT 

2065 

012156 

0127t4 

000015 

MOV 

*Ub>RH 

1 SET UP DELAY 

2066 

012162 

104406 


TSTRGS 



2067 

012164 

000207 


RTS 

PC 

ItXIT 

2066 

012166 

062716 

000002 

AOD 

»2*9SP 

i increment stack pointer 

2069 

012172 

000207 


RTS 

PC 

IExIT 


g ***** * ************* ********** ************* ******* ********************* 

ientered with system trap callitstrgr & TSTRGSJ 
J TEST REGISTER BIT(S) SUBROUTINE 
jARGUEMENTSI 

I f<2 = ADOfRSS OF REGISTER 
1 R3 = MASK FOR BIT(S) TO BE TESTED 


2077 






1 R4 = 

ft OF SECONDS 

TO TIMEOUT 

2076 






1 EXIT 

TO RETURN 

IF 

TIMEOUT 

2079 






1 EXIT 

to Return 

♦ 2 

IF NOT TIMEOUT 

2060 

012174 

032737 

000400 

012216 

RGSTSTI 

BIS 

#4on•TSTIN 


1 SETUP FOR BIT SET TEST 

2061 

012202 

000403 




BR 

TSTR 



2062 

012204 

042737 

000400 

012216 

rgrtsti 

BIC 

M4Q0«TSTIN 


I SETUP EOR BIT CLEAR T£ST 

2063 

012212 

005005 



TSTBl 

CLR 

R5 


2064 

012214 

031203 




BIT 

o)R2 * R3 



2085 

012216 

001403 



TSTIN; 

BEQ 

TSTl 


1 LOOP IF TEST NEG1TIVE 

2 086 

012220 

062716 

000002 



add 

#2,<?SP 


»INCREMENT STACk POINTER 

2087 

012224 

0002o7 




RTS 

PC 


ItXIT 

2068 

012226 

005205 



tstli 

INC 

R5 



2069 

012230 

0013/1 




BNE 

TST»f2 


IRETRY IF LOOP COUNTER NOT ZERO 

2090 

012232 

C 0630 4 




OEC 

R4 



2091 

012234 

0013&6 




BNE 

TSTB 


ISTART LOOP OvLR IF NOT HAXIMUN TIME 

2092 

012236 

000207 




RTS 

PC 


ItXIT 


IENTERED with SYSTEM TRAP CALL(PRTMS6 ) 
|MOV ADDRESS OF MESSAGE TO REGISTER 2 


********************* 


2097 





I THEN 

PRINT MESSAGE 


2098 

012240 

1427 77 

000177 

166570 

top: 

RICH 

#177* al f CSK 1 CLR INT FLAG 

2099 

012246 

112237 

012710 



MO VB 

IR2I+.EOMK 

IMOVE IN EOH MARKER 

2100 

012252 

121237 

012710 


topi: 

CMPB 

3R2«EOMK 

ICOMPARE FOR EOM 

2101 

012256 

OOlGUt 




BNE 

,+4 INO 


2102 

012260 

000207 




RTS 

PC 

1 YES * EXIT 

2103 

012262 

1212*: 7 

000100 



CMPB 

aiR2,tt*a 


2104 

012266 

0014U4 




BEG 

TOP? 


2105 

012270 

112237 

001076 



MOVB 

(R21♦* CHAR 

IPRINT MESSAGE CHARACTER 

2106 

012274 

1044t 0 




PRTOUT 



2107 

012276 

000765 




UR 

TOPI 1 BRANCH BACK 

2106 

012300 

112737 

000215 

001076 

TOP2: 

MOVB 

«215*CHAR 

1 SEND CARRIAGE RETURN 

2109 

012306 

1 04 41* 0 




PRTOUT 






.WAIN. 
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12♦39 PASE 1-37 


2110 

012310 

112737 

000212 

001076 


MOVB 

14212 «CHAR 

(SEND LINE FEED 

2111 

012316 

109*460 




PRTOUT 



2112 

012320 

005202 




INC 

R2 

tINCRMTN R2 

2113 

012322 

0007^3 




BR 

TOPI 1 

NO EOM, SO LOOP 

2114 









2115 





I********************************* **** ************ 4*4*44*4*44*4*4«*444i 

2116 





|EnTEREO with 

SYSTEM TRAP 

CALLS(pWRCLR, WRITE, REAP, WREOF* REWlNO, 

2117 





iSpACEF 

* S P A C E B , SELECT, 

WBUFCA, RBUFCA, BC«1, BC* 2, BC-4, TSTEoF) 

2118 





iCOMMONLY USED 

MOVE AND BIT INSTRUCTIONS 

2119 

012324 

0127/7 

010000 

166470 

STCB12J 

MOV 

ttlOOOOiSMTC 

2120 

012332 

00020 7 




KTS 

PC 

IEXIT 

2121 

012334 

0137/7 

001116 

166460 

stcwts 

MOV 

TCWT*3MTC 


2122 

012342 

000207 




RTS 

PC 

IEXIT 

2123 

012344 

0137/7 

001119 

166450 

stcro: 

MOV 

TCRQ,3MTC 


2124 

012352 

0 0 0 2 0 7 




RTS 

PC 

IEXIT 

2125 

012354 

0137/7 

001120 

166490 

STCEFI 

MOV 

TCWF«5MTC 


2126 

012362 

000207 




RTS 

PC 

IEXIT 

2127 

012364 

0137/7 

001130 

166430 

STCRWJ 

MOV 

TCRW,3MTC 


2128 

012372 

00020 7 




RTS 

PC 

IEXIT 

2129 

012374 

0137 n 

001122 

166420 

stcsf; 

MOV 

TCSF,3MTC 


2130 

012M02 

00020 7 




RTS 

PC 

IEXIT 

2131 

012404 

0137/7 

001129 

166410 

STCSBS 

MOV 

TCRS.afMTC 


2132 

012412 

00020 7 




RIS 

PC 

IEXIT 

2133 

012414 

0137/7 

001106 

166400 

stcsl: 

MOV 

TCSL f a)HTC 


2134 

012422 

00020 / 




KTS 

PC 

IEXIT 

2135 

012424 

0127/7 

014556 

166374 

CAWB: 

MOV 

# WDuF« 3C A 


21 56 

012432 

00020 7 




RTS 

PC 

IEXIT 

2137 

012434 

oi27 n 

019722 

166364 

CARB; 

MOV 

mrbuf «acA 


2138 

012442 

00020 7 




RTS 

PC 

IEXIT 

2139 

012444 

0127 / 7 

177777 

166352 

BCM11 

MOV 

«-i ,sibc 


2140 

012452 

000207 




RTS 

PC 

IEXIT 

2141 

012454 

0127/7 

177775 

166342 

BCh3; 

MOV 

U-3.3BC 


2142 

012462 

000207 




RTS 

PC 

IEXIT 

2143 

012464 

0127 n 

177774 

166332 

BCM4; 

MOV 

#-4,SBC 


2144 

012472 

00020 / 




RTS 

PC 

IEXIT 

2145 

012474 

0327 /7 

040000 

166316 

eoftst* 

BIT 

A40000*aMTS 

2146 

012502 

0002u7 




RTS 

PC 

IEXIT 

2147 









2148 





t**444**44*44***444«******** ♦***♦*«**#***•**«**»*• *«****«*♦♦*****♦♦*#» 

2149 





lENTEKED WITH 

system trap 

CALL!XCLOR ) 

2150 





|X0R rtO 

with hi* save result in ri 

2151 

012504 

0101O3 



chcxor: 

MOV 

Rl,R3 


2152 

012506 

040001 




BIC 

R0.R1 


2153 

012510 

04 030 0 




UIC 

R3,RQ 


2154 

012512 

050001 




BIS 

RO *R1 


2155 

012514 

0002^7 




RTS 

PC 

IEXIT 

2156 









2157 





1 

* 4 4 4 4 4 4 4 * * * 

4 4444*44 *4444***444*44*** ***♦**«***$♦******** 

2158 





lENTEKED WITH 

system trap 

CALLtROTCMP) 

2159 





1 SIMULATE CRC 

rotate, IF 

CR1 GOES TO 1 COMPLEMENT ^,5,6, ANO 71 

2160 

012516 

0427U0 

177000 


CRCROT: 

flic 

#177000,RO 


2161 

012522 

00600 0 




ROR 

HO 


2162 

012524 

1030^1 




8CC 

CRCH1 1 

NO EXIT 

2163 

012526 

0527^0 

000400 



BIS 

4400,RO 

IMAKE BIT1=1 

2164 

012532 

010001 




MOV 

RO.fU 


2165 

012534 

0427O1 

000074 



OIC 

#74,R1 


2166 

012540 

0 0 510 0 




COM 

RO 
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2167 

012542 

042700 

000703 



BIC 

M703 «H0 


2166 

012546 

050100 




BIS 

Nl * RO 

•RECOMBINE COMPLEMENTED 

2169 

012550 

00020 7 



CRCRll 

RTS 

PC 

lEXIT 

2170 









2171 





|************************************************* 

2172 





lErjTfcKtD WITH 

SYSTEM TRAP CALLIPRTOCTI 

2173 





1 PRINT 

OCTAL VALUE IN REGISTER2 

2174 

012552 

01273 7 

000060 

001076 

OCTPRT 

: mov 

#•0 «CHAR 

1 INITIALIZE 2ST NUMBER 

2175 

012560 

005702 




TST 

R2 

IIS VALUE POSITIVE 

217b 

012562 

100005 




UHL 

OCT1 

IYES PRINT 0 

2177 

012564 

012737 

000061 

001076 


MOV 

RU.ChAR 

* NO PRINT 1 

2176 

012572 

104460 



OCTll 

PKTOUT 



2179 

012574 

006102 




ROL 

R2 


2160 

012576 

006102 




RUL 

R2 


2161 

012600 

012757 

177773 

001074 


MOV 

tt-5 « OCT 

ICOUNT 5 DIGITS 

2162 

012606 

0061 o2 



OCT2! 

ROL 

R2 


2163 

012610 

006102 




ROL 

R2 


2184 

012612 

00 bl02 




ROL 

R2 


2165 

012614 

0102^7 

001076 



MOV 

R2 ♦ CHAR 

ISAVE DIGIT 

2166 

012620 

042757 

177770 

001076 


QIC 

8177770* 

CHARlCLEAR OTHER BITS 

2187 

012626 

052737 

000060 

001076 


BIS 

460♦CHAR 

IMAKE ASCII DIGIT 

2166 

012634 

0 01-002 




ROR 

R2 


2169 

012636 

104 4 U 0 




PKTOUT 



2190 

012640 

006102 




ROL 

R2 


2191 

012642 

005237 

001074 



INC 

OCT 

1*1 TO DIGIT COUNT 

2192 

012646 

001337 




UNE 

0CT2 

INOT DONE 

2193 





1 TYPE 

2 SPACES 



2194 

012650 

012702 

014535 



MOV 

4MSG12•R2 


2195 

012654 

104412 




PRTMS6 


IPRINT MESSAGE IN R2 

2196 

012656 

000207 




RTS 

PC 

lEXIT 

2197 









2198 





t ***** 

♦I****************************************** 

2199 





iEnTERED WITH 

SYSTEM TRAP CALL(PRTOUT) 

2200 

012660 

032737 

020000 

177570 

OCTPi 

BIT 

P20000#SR 

2201 

012666 

001401 




BEQ 

.♦4 

IINHIBIT PRINTOUT? 

2202 

012670 

0002^7 




RTS 

PC 

IYES* EXIT 

2203 

012672 

1057/7 

166140 



TSTB 

2TCSR 

INO* PRINT 

2204 

012676 

1003/5 




GPL 

• -4 

IWAIT FOR READY 

2205 

012700 

0137/7 

001076 

166126 


MOV 

CHAR t BT0bR1 PRINT 

2206 

012706 

000207 




RTS 

PC 

lEXIT 

2207 

012710 

00 0 



EOMKJ 

• BYTE 

0 


2208 









2209 






1 **** 

MESSAGES 

**»* 

2210 









2211 





t********+*****»*************#****«*«************* 

2212 

012711 

0 3 7 

100 

123 

hsgq : 

.ASCII 

l/oiSET SWITCH REGISTER ACCORDING TO 


012714 

lwb 

124 

040 






012717 

1*3 

127 

111 






012722 

1*4 

103 

110 






012725 

040 

122 

105 






012730 

107 

111 

123 






012733 

1*4 

105 

122 






012736 

040 

101 

103 






012741 

103 

117 

122 






012744 

104 

111 

116 






012747 

107 

040 

124 






012752 

117 

040 







BITS 

********************* 

AS 0 


* 9 ******************* 


********************* 

t 



main 
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2213 

l) 12754 

117 

120 

105 


•ASCII 

1 OPERATING INSTKUCIIONS AND9PRESS CONT2NUE9/I 


012757 

122 

101 

124 





012762 

1*1 

116 

107 





012765 

040 

111 

116 





012770 

1*3 

124 

122 





012773 

1*5 

103 

124 





012776 

1U 

117 

1 16 





013003 

1*3 

040 

101 





013004 

116 

104 

10 0 





013007 

1*0 

122 

105 





013012 

1*3 

123 

040 





01301b 

103 

117 

116 





013020 

1*4 

111 

116 





013023 

1*5 

105 

100 





013026 

0^7 






2214 

013027 

0‘J 7 

100 

040 

HSGlS 

.ASCII 

1/9 PC STATUS COMANO BYTE CA 1 


013032 

0^0 

120 

103 





013035 

0 4 0 

040 

040 





013040 

040 

123 

1*4 





013043 

1U1 

124 

125 





013046 

1*3 

040 

040 





013051 

103 

117 

115 





013054 

lul 

116 

104 





013057 

040 

040 

0 4 0 





013062 

102 

131 

124 





013065 

105 

040 

040 





013070 

040 

040 

0'4 0 





013073 

103 

101 

040 





U13076 

040 

040 

040 




2215 

013101 

104 

101 

124 


.ASCII 

1 DATA B READ L TEMP CRC CAL9/1 


013104 

lol 

040 

102 





013107 

04 0 

040 

122 





013112 

105 

101 

104 





013115 

040 

114 

040 





013120 

040 

040 

124 





013123 

105 

115 

120 





013126 

040 

040 

103 





013131 

1*2 

103 

040 





013134 

1U3 

101 

114 





013137 

1O0 

057 





2216 

013141 

0^7 

100 

0 b7 

MSG2I 

.ASCII 

1/9/1 

2217 

013144 

0 57 

100 

1*5 

hSG3; 

.ASCII 

I/9SET SWllcl IF MANUAL INTERVENTION TEST! 


013147 

1 0 5 

124 

040 





013152 

1*3 

127 

061 





013155 

001 

075 

061 





C13160 

040 

111 

106 





013163 

040 

115 

101 





013166 

116 

125 

101 





013171 

114 

040 

111 





013174 

116 

124 

105 





013177 

1*2 

126 

105 





Q132 02 

116 

124 

111 





013205 

11 7 

116 

040 





013210 

1*4 

105 

1*3 





013213 

1*4 






2216 

013214 

100 

111 

123 


.ASCII 

IBIS TO BE BYPASSED ♦ PRESS CONTINUt/l 


013217 

040 

124 

117 
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013222 

OHO 

102 

103 





013225 

040 

102 

131 





013230 

1*0 

101 

1*3 





013233 

1*3 

105 

104 





013236 

040 

053 

040 





013241 

1*0 

122 

1U5 





013244 

1*3 

123 

040 





013247 

103 

117 

116 





013252 

124 

111 

116 





013255 

1*5 

105 

057 



" - 

2219 

013260 

00 7 

100 

123 

MS64I 

.ASCII 

I/SSElECT Unit 0. PRESS CONTINUE/! 


013263 

105 

114 

105 





013266 

1 u5 

124 

040 





013271 

1*3 

116 

111 





013274 

1*4 

040 

060 





013277 

004 

040 

120 





013302 

1*2 

105 

123 





013305 

1*3 

040 

103 





C13310 

117 

116 

124 





013313 

Ui 

116 

125 





013316 

105 

057 





2220 

013320 

00 7 

100 

123 

MSGS t 

.ASCII 

1 /aSELECT UNIT 0. OFF-LINE• PRESS CONTINUE/! 


013323 

105 

114 

105 





013326 

103 

124 

040 





013331 

1*5 

116 

111 





013334 

1*4 

040 

060 





013337 

O^H 

040 

117 





013342 

10 6 

106 

035 





013345 

11 H 

111 

116 





013350 

105 

054 

040 





013353 

1*0 

122 

105 





013356 

1*3 

123 

040 





013361 

103 

117 

116 





013364 

1*4 

111 

116 





013367 

1*5 

105 

0 37 




2221 

013372 

00 7 

100 

104 

WSG6j 

.ASCII 

i/soishount tape, remove write lock ring, mount tapei 


013375 

111 

123 

1 15 





013400 

117 

125 

116 





013403 

1*4 

040 

124 





013406 

101 

120 

105 





013411 

q04 

040 

122 





013414 

Iu5 

115 

117 





013417 

1*6 

105 

040 





013422 

1*7 

122 

111 





013425 

1*4 

105 

040 





013430 

114 

117 

103 





013433 

115 

040 

122 





013436 

111 

lib 

10 7 





013441 

034 

040 

115 





013444 

117 

125 

116 





013447 

1*4 

040 

124 





0X3452 

101 

120 

105 




2222 

013455 

luO 

123 

105 


.ASCII 

taSELECT UNIT 0. ON LINE. PRESS CONTINUE/! 


013460 

114 

105 

103 





013463 

1*4 

040 

125 





013466 

116 

111 

124 





013471 

0 4 0 

ObO 

0 ^4 
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013474 

040 

117 

116 



013477 

040 

114 

111 



013502 

116 

105 

054 



013505 

040 

120 

122 



013510 

105 

123 

123 



013513 

040 

103 

117 



013516 

116 

124 

111 



013521 

116 

125 

105 



013524 

0^7 





2223 013525 

05 7 

100 

104 MS67J 

•ASCII 

l/aDISMOUNT TAPE, REPLACE WRITE LOCK RING, MOUNT TAPE 1 

013530 

111 

123 

115 



013533 

117 

125 

116 



013536 

124 

04 0 

124 



013541 

lot 

120 

10b 



013544 

054 

040 

12 2 



013547 

1 OD 

12 0 

114 



013552 

101 

103 

105 



013555 

040 

127 

122 



013560 

111 

124 

105 



013563 

040 

114 

117 



013566 

lu3 

115 

040 



013571 

1*2 

111 

116 



013574 

1 o 7 

054 

040 



013577 

115 

117 

125 



013602 

116 

124 

040 



013605 

124 

101 

120 



013610 

lob 





2224 015611 

10 0 

115 

117 

.ASCII 

•SHOVE TAPE SHORT OlSTANCE FORWARD FROM BOTl 

Cl 3614 

1 2 S 

105 

040 



013617 

124 

101 

120 



013622 

105 

040 

123 



013625 

HO 

117 

122 



013b30 

124 

040 

104 



013633 

1U 

123 

124 



013636 

101 

116 

103 



013641 

103 

040 

106 



013644 

117 

122 

127 



013647 

101 

122 

104 



013652 

040 

106 

122 



01365b 

117 

115 

040 



013660 

10 2 

117 

124 



2225 013663 

1U0 

123 

105 

.ASCII 

isselect UNIT 0, ON line, press CONTINUE! 

013666 

114 

105 

103 



013671 

124 

04 0 

125 



013674 

116 

111 

124 



013677 

040 

060 

054 



013702 

040 

117 

116 



013705 

040 

114 

111 



013710 

116 

105 

0 54 



013713 

040 

120 

122 



013716 

103 

123 

123 



013721 

040 

103 

117 



013724 

116 

124 

111 



013727 

116 

125 

105 



2226 013732 

1O0 

125 

116 

.ASCII 

1SUNIT SHOULD GO OFFLINE ANO REWINDS/! 

013735 

111 

124 

040 



013740 

123 

110 

117 





MAIN. MACRO V06-03 U5»N0V~7<t 12139 PASE 1-42 



013743 

X25 

114 

104 





013746 

040 

107 

117 





013751 

040 

117 

1 06 





013754 

1U6 

114 

111 





013757 

116 

105 

040 





013762 

161 

116 

104 





013765 

04 0 

122 

105 





013770 

1*7 

111 

116 





013773 

104 

100 

0 57 




2227 

013776 

057 

100 

123 

MSGd; 

• ASCII 

1/gS£LECT UNIT 0. ON LINE* AT BOT* PRESS CONTINUE/! 


C14 0 01 

103 

114 

105 





014004 

10 3 

124 

040 





014007 

1*5 

116 

111 





014012 

1*4 

Q4 G 

060 





0 J 4 0 15 

0^4 

040 

117 





014020 

1A& 

040 

114 





014023 

Hi 

116 

105 





014026 

C^4 

040 

101 





014031 

1*4 

04 0 

102 





014034 

117 

124 

054 





014037 

040 

120 

122 





014042 

1 o 5 

123 

123 





014045 

040 

103 

117 





014050 

116 

124 

111 





014053 

116 

125 

105 





014056 

05 7 






2226 

014057 

057 

100 

111 

MSG9 1 

•ASCII 

I/SIF PROCESSOR IS A p0pil*H5* SET SW 1*1| 


014062 

lob 

040 

120 





014065 

1*2 

117 

103 





014070 

iu5 

123 

123 





014073 

11 7 

122 

0*0 





014076 

HI 

123 

040 





014101 

lul 

040 

1*0 





014104 

104 

120 

061 





014107 

Ooi 

055 

064 





014112 

0^5 

054 

0*0 





014115 

1*3 

105 

124 





014120 

040 

123 

127 





014123 

Q4 0 

061 

0 75 





014126 

061 






2229 

014127 

1U0 

111 

106 


•ASCII 

iaiF ANY OTHER* SET SW l*0t PRESS CONTXNUE/i 


014132 

040 

101 

116 





014135 

1*1 

04 0 

117 





014140 

1*4 

no 

105 





014143 

1*2 

054 

040 





014146 

1*3 

105 

1*4 





014151 

040 

123 

127 





014154 

0*0 

061 

0 75 





014157 

Qi >0 

054 

040 





014162 

1*0 

122 

105 





014165 

1*3 

123 

040 





014170 

1U3 

117 

116 





014173 

1*4 

111 

116 





014176 

1 <- 5 

105 

057 




2230 

014201 

05 7 

100 

120 

MSGio: 

.ASCII 

l/SPROCESSOR WILL HALT* PRESS CONTINUE/I 


014204 

1*2 

117 

103 





014207 

1 o 5 

123 

123 






WAIN. MACRO V06-Q3 05-N0V-74 12139 PASS 1*43 



014212 

lU 

122 

040 





01421b 

1*7 

111 

114 





014220 

114 

040 

110 





014223 

m 

114 

124 





014226 

Q04 

040 

120 





014231 

1*2 

105 

123 





014234 

1*3 

040 

1 0 3 





014237 

117 

116 

124 





014242 

HI 

116 

125 





014245 

lub 

057 





2231 

014247 

057 

100 

120 MSGlll 

•ASCII 

t/sPROCESSOR WILL HALT, PUT "ENAB 

OHALT* SU ON m HALT 


014252 

1*2 

117 

1 U 3 





014255 

1U 5 

123 

1*3 





014260 

117 

122 

040 





014263 

0^0 

127 

111 





014266 

114 

114 

04 0 





014271 

HO 

101 

114 





014274 

1*4 

054 

040 





014277 

1*0 

125 

124 





014302 

040 

042 

105 





014305 

116 

101 

102 





014310 

114 

105 

0 : *5 





014313 

HO 

101 

114 





014316 

1*4 

042 

040 





014321 

1*3 

127 

040 





014324 

117 

116 

040 





014327 

Q 4 2 

110 

101 





014332 

114 

124 

042 




2232 

014335 

100 

120 

125 

•ASCII 

I8PUT "S-INST-S-BUS CTCLC* SU ON « 

•BUS CYCLIC 


014340 

1*4 

040 

042 





014343 

1*3 

055 

111 





014346 

116 

123 

124 





014351 

0‘ J 5 

123 

055 





014554 

102 

125 

1*3 





014357 

040 

103 

131 





014362 

103 

114 

1 05 





014365 

042 

040 

1*3 





014370 

1*7 

040 

117 





014373 

116 

040 

042 





014376 

1*3 

055 

102 





014401 

1*5 

123 

040 





014404 

103 

131 

103 





014407 

114 

105 

042 




2233 

014412 

10Q 

120 

122 

.ASCII 

lapRESS "CONTINUE" 6 T1HESI 



014415 

1 u 5 

123 

123 





014420 

0** 0 

042 

103 





014423 

117 

116 

124 





014426 

HI 

116 

1*5 





014431 

105 

042 

040 





014434 

066 

040 

124 





014437 

HI 

115 

105 





014442 

U 3 






2234 

014 4 4 3 

lUU 

120 

125 

.ASCII 

I3PUT SW'S BACK TO "ENABLE" * "S- 

NST M . 1 


014446 

1*4 

040 

123 





014451 

1*7 

047 

123 





014454 

040 

040 

102 





014457 

lui 

103 

113 






*«AIN* MACRO V06-03 U5-N0V-74 12*39 PASE 1*»44 



014462 

040 

124 

117 




014465 

OHO 

042 

105 




014470 

116 

101 

102 




014473 

114 

105 

042 




014476 

040 

046 

040 




014501 

042 

123 

055 




014504 

Hi 

116 

123 




014507 

124 

042 

0^4 



2335 

014512 

04 0 

120 

122 


.ascii i press "Continued/ i 


014515 

105 

123 

1?3 




014520 

040 

042 

103 




014523 

117 

116 

124 




014526 

111 

116 

125 




014531 

10 5 

042 

100 




014534 

057 





2236 

014535 

0^7 

040 

040 

MS612S 

.ASCII 1/ /I 


014540 

057 





2237 

014541 

05 7 

100 

103 

MSG13S 

.ASCII 1/dCfCLE 4001/1 


014544 

m 

103 

114 




014547 

105 

040 

043 




014552 

060 

060 

061 




014555 

G 3 7 





2236 






• EVEN 

2239 

014556 

OOOOOQ 



UBUFS 

0 

2240 


0147^2 




.=WBUF+1Q0. 

2241 

014722 

000000 



RBUF; 

0 

2242 





1*************************** 

2243 


OOOQUl* 




.end 



•MAIN. MACRO V06-03 05-NOV-74 12:39 BASE l-<*b 
SYMBOL TABLE 


BC 

001024 

BCM1 

Q1244H 

BCM3 

012434 

BCM4 

012464 

BE GIN 

00X350 

BELL 

011400 

BGLl 

011206 

BUFF = 

000776 

CA 

001026 

CARB 

012434 

CAWB 

012424 

CC = 

177776 

CHAR 

001076 

CINST 

005414 

CRCP1 

007610 

CRCROT 

012516 

CRCR1 

012550 

CRCTST 

007572 

CRCT1 

007576 

CHCT2 

007636 

CMCWKT 

001072 

CRCXOR 

012504 

CRROT1 

001054 

CRROT2 

001060 

CrtROT3 

001064 

CRROT4 

001070 

CRXORl 

001052 

CRXOR2 

001056 

CRXOR3 

001062 

CRXOR4 

001066 

CHRIST 

012120 

CWRITE 

010002 

EOT TST 

012474 

EOMK 

012710 

HLT r 

104400 

1 OB YP 

004250 

lorsr 

001040 

IR1 

006040 

1R2 

006114 

IK2A 

006116 

IR3 

006214 

IR 3 A 

006230 

IR4 

006326 

IR4A 

006354 

IR5 

006376 

IR5A 

006414 

MIN1BC= 

104440 

MIN3UC- 

104442 

•11N4BCs 

104444 

MSGO 

012711 

MSG 1 

013027 

MSGl 0 

014201 

MSG 11 

014247 

MSG 12 

014535 

MSG13 

014541 

MSG2 

013141 

MSG 3 

013144 

MSG 4 

013260 

MSG5 

013320 

MSG6 

013372 

MSG 7 

013525 

MSGO 

013776 

MSG 9 

014 U 57 

MTAAD 

001002 

MT AS 

001012 

MT AV 

001010 

MTC 

001022 

MTD 

001030 

MINAO 

001000 

MU4S 

001006 

MTNV 

001004 

MTP 

001104 

MTPM 

003110 

MT HO 

001032 

MTS 

001020 

MTTRP 

011450 

MTV 

001014 

MT VN 

001320 

MT VS 

001016 

NOP = 

000240 

NXMT 

005674 

OCT 

001074 

OC TP 

0126o0 

OCTPRT 

012552 

OCT1 

012572 

0CT2 

0 12 6 U 6 

PAR 

007104 

P A R1 

007332 

PAR2 

007342 

P AR 3 

007532 

PAR** 

007542 

PRINT 

011620 

PR INTI 

001100 

PRTMSG= 

104412 

PRTOCT& 

104456 

PRTOUTs 

104460 

PWRCLKs 

104414 

ROUF 

014722 

RL3UFCA = 

104436 

READ s 

104420 

RETURN 

001102 

REWINU= 

104424 

RGRTST 

012204 

RGSTST 

012174 

ROTCMP= 

1Q4454 

S A VC 

001134 

SCOPE s 

1 U4 4 (j2 

SCOPtA 

012034 

SCOPES 

012052 

SCPRT 

012114 

SELECT- 

104432 

SPACCBs 

104430 

SPACEF= 

104426 

SR = 

177570 

START 

001160 

STUU2 

012324 

STCEF 

012354 

STCRD 

012344 

STCRW 

0123o4 

STCSB 

012404 

S1CSF 

012374 

SfCSL 

012414 

STCUiT 

012334 

table 

011536 

TAMO 

001242 

T BC 

00.3076 

TC'OL 

001112 

TCRD 

001114 

TCRS 

001124 

TCRW 

001130 

TCSF 

001122 

TCSL 

001106 

TCSR 

001036 

TCWE 

001126 

TCWF 

001120 

rcwr 

001116 

TUB 

003206 

TOOK 

001034 

T£MP 

001044 

TE WPP 

0U1046 

TEMPS 

001050 

TWA 

003142 

TMRT 

010252 

TMTNFl 

001042 

TOP 

012240 

TOPI 

0122 s? 

TOP2 

012300 

TRAP34 

011516 

TRLOF 

0 0 5 0 0 4 

TREE 

006112 

TSR 

003430 

TSTB 

012212 

TSTCURr. 

104404 

TSTEND 

011304 

TSTEOFs 

104446 

TST IN 

012216 

TSTL 

012226 

TSTROY 

012146 

TSTRGRs 

104410 

TSTRGSb 

104406 

T7CH 

003414 

USLEN 

001152 

uss 

010456 

USS1 

010426 

WAlTIRs 

104450 

WOR 

006454 

UiUi s 

006450 

wBRl 

006520 

WHR2 

006552 

WBK3 

006614 

WbR4 

006704 



* MAIN* MACRO V06-03 05-N0V-74 12159 PAGE 1-46 
STMBOL TABLE 


WBR5 007070 WBUF 014556 W0UFCA* 104434 

WREOF * 104422 WRITE = 104416 XCLOK c 104452 


. AOS. 

014724 

000 







000000 

0 u 1 






ERRORS 

Of TECTEO: 

0 






FREE CORE: 11167. WORDS 
P466,P466/CRF<P466 






CROSS REFERENCE 

table. s 

-1 





BC 

1- 307« 

1- 423 

1- <*73 

1- 6913 

1- 692 

1- 815 

1- 6793 


1- 093 

1- 9043 

1- 915 

1- 943 

1- 971 

1- 992 

1-1013 


1.1046a) 

1-1053 

1-10573 

1-1064 

1-1079 

1-11013 

1-1248 


1-13963 

1-14203 

1-14613 

1-14723 

1-17943 

1-16483 

1-16603 


1-1983 

1-2X392 

1-21413 

1-21433 




9CM1 

1-1965 

1-21394 






3CM3 

1-1966 

1-2X414 






BCM4 

1-1967 

1-21434 






BEGIN 

1- 330 

1- 371 

1- 3764 

1-1927 




BELL 

1-1902 

1-1906 

1-1910 

1-19124 




BGH 

1-1641 

1-16744 






BUFF 

1- 285 4 
1-1386 

1- 346 

1- 377 

1-1291 

1-1303 

1-1317 

1-1343 

CA 

1- 308« 

1- H30 

1- 480 

1- 7033 

1- 704 

1- 818 

1- 696 


l- 9ie 

1- 946 

1- 974 

1- 999 

1-1010 

1-108? 

1-12703 


1 - 14 62a) 

1-1/953 

1-1852 

1-1984 

1-21353 

1-21373 


CARB 

,1-1964 

1-21374 





* 

CAWB 

1-1963 

1-21354 






CC 

1- 283« 

1- 37 9< 3 

1-12923 

1-13043 

1-13183 

1-13443 

1-13873 

Char 

1- 3264 

1-21053 

1-21083 

1-21L03 

1-21743 

1-21773 

1-21853 


1-21863 

1-21373 

1-2205 





CINST 

1-11943 

1-11963 

1-11994 





CRCP1 

1-16024 

1-1^09 






CRCROT 

1-1971 

1-21604 






CRCR1 

1-2162 

1-21694 






CRCTST 

1-15904 







CRCT1 

1-1600W 

1-1638 






CRCT2 

1-1604 

1-16104 






CRCUlRT 

1- 3264 
1-1989 

1- 3843 

1-16373 

1-16383 

1-1674 

1-1669 

1-16923 

CKCXOR 

1-1970 

1-2X514 






CRROT1 

1- 3194 

1-16133 






CRROT2 

1- 3214 

1-16193 






CRROT3 

1- 3234 

1-16252 






CRROT4 

1- 3254 

1-16313 






CRXORI 

1- 3184 

1-16103 






CRXOR2 

1- 3204 

1-1*163 

1-1617 





CRXOR3 

1- 3224 

1-16223 

1-1623 





CHX0R4 

1- 3244 

1-16283 

1-1629 





CURTST 

1-1951 

1-26 ‘♦94 






CWRiTE 

1-16414 







EOFTST 

1-1968 

1-2X454 






EOMK 

1-20995) 

1-2100 

1-22074 





HLT 

1- 256« 

1- Hll 

1- 418 

1- 425 

1- 432 

1- 439 

1- 446 


1- 953 

1- 460 

1- 466 

1- 475 

1- 482 

1- 489 

1- 496 


1- 503 

1- 610 

1- 518 

1- 525 

1- 530 

1- 535 

1- 540 


1- 545 

1- So 

1- 555 

1- 562 

1- 570 

1- 577 

1- 582 


1 * A t 

1 - ■ ■ -)u 

1-1, MV 

1 - ►. A 9 

1 - 

1 . f, t 9 

1- 624 



629 

1- 

654 

1- 

639 

1- 

647 

1- 655 

1- 

662 

1- 

670 

676 

1* 

t»8l 

1- 

666 

1- 

694 

1- 706 

1- 

718 

1- 

729 

733 

l- 

7 40 

1- 

746 

1- 

752 

1- 758 

1- 

766 

1- 

773 

760 

1- 

766 

1- 

796 

1~ 

602 

1- 607 

1- 

609 

1* 

811 

614 

1- 

bl7 

1- 

620 

1- 

824 

1« 629 

1- 

83? 

1- 

835 

638 

1- 

641 

1- 

846 

1- 

850 

1- 853 

1- 

858 

1- 

861 

667 

1- 

t> 7 0 

1- 

878 

1- 

884 

l- 866 

1- 

889 

1- 

892 

895 

1- 

t» 98 

1- 

902 

1- 

906 

1- 911 

1- 

914 

1- 

917 

920 

1- 

924 

1- 

934 

1- 

942 

1- 945 

1- 

948 

1- 

957 

960 

1- 

968 

1- 

970 

1- 

973 

1- 976 

1- 

980 

1- 

988 



CROSS REFERENCE TABLE S-2 


IOBYP 

IOTST 

IR1 

IR2 

IR2A 

IR3 

IR3A 

IR4 

IR4A 

IRS 

IR 5A 

MINlBC 

MIN3BC 

MIN4BC 

MSGO 

MSGt 

MSG10 

MSGll 

MS612 

MS613 

MSG2 

MSG3 

MSG4 

MSGS 

MSG6 

MSG7 

MSG8 

MSG9 

MTAAO 

MT AS 

MTAV 

MTC 


l- 991 
1-1018 
1-1049 
1-1075 
1-1099 
1-1139 
1-1172 
1-1206 
1-1233 

1-1265 

1-1311 

1-1359 

1-1399 

1-1469 

1-1509 

1-1557 

1-1652 

1-1660 

1-1756 

1-1616 

1-1669 

1-1919 

1- 936 

1- 313# 

1-1299 

1-1307 

1-1310 

1-1321 

1-1329 

1-1396 

1-1357 

1-1369 

1-1371 

1- 272# 

1-1911 

1- 273# 

1-1173 

1- 274# 

1- 347 

1-1993 

1*1642 

1-1674 

1-2194 

l- 351 a 

1 -19 0 4 oJ 
1-1596 
1-1726 
1-17383 
1 -1771a) 
1-17625 
1-16095 
1-16295 
1-1036 
1- 296# 
1- 302# 
1- 301# 
1- 306# 
1- 5l4oi 


1- 799 
1-1026 
1-1052 
1-1u 7ft 
1-U05 
1-1146 
1-1176 
1-1*U 
1-1256 
1-1* 72 
1-1529 
1-1^3 
l-l4t)2 
1-19&7 
1-1513 
1-1559 
1-1 b 56 
1-1wB6 
1-1759 
1-1»19 
1-1* 67 
1-1922 
1- 936 
1- / 873 
1 - 1 ^ 01 # 
1-1311# 
1-1^15# 
1-1333# 
1-1^32 
1-1^51# 
1-1360 
1-1375# 
1-13/9 
1- 747 
1-1468 
1- 939 
1-1497 
1-1131 
1 - 2 * 12 # 
1-2*14# 

1-2* 3o# 
1-2*31# 
1-2*36# 
1- 3525 
1-1905 
1-2*16# 
1-2*17# 
1-17425 
1-1/72 
1-J 783 
1-1o 1 o 

1-1^30 
1 - 2 * 26 # 
1- *59 
1- 568 
1- 067 
1- 4 09 
1- 5153 


1- 997 
1-1029 
1-1055 
1-1061 
1-1106 
1-1149 
1-1161 
1-1219 
1-1296 
1-1276 
1-1331 
1-1366 
1-1907 
1-1971 
1-1526 
1-1572 
1-1661 
1-1691 
1-1779 
1-1623 
1-1671 
1-1926 
1- 993# 
1- 937 


1-1336 

1-1367 

1-1376 
1- 930 
1-1510 
1-1006 
1-1515 
1-1293 


1- 3533 
1-19073 


1-1746 

1 - 2220 # 

1 - 2221 # 

1-2223# 

1-2227# 


1- 3753 
1- 3743 
1- 444 
1- 516 


1-1004 

1-1034 

1-1060 

1-1084 

1-1115 

1-1152 

1-1164 

1-1216 

1-1252 

1-1279 

1-1335 

1-1366 

1-1414 

1-1476 

1-1529 

1-1579 

1-1664 

1-1707 

1-1790 

1-1626 

1-1879 

1-1937 

1- 9393 


1-1338# 

1-1369# 

1-1380# 

1- 961 

1-1554 

1*1030 

1-1542 

1-1646 


1-1898 

1-19063 


1-17613 


1- 458 
1- 5223 


1-1009 

1-1039 

1-1063 

1-1087 

1*1122 

1-1155 

1-1186 

1-1224 

1-1255 

1-1282 

1-1337 

1-1373 

1-1424 

1-1479 

1-1536 

1-1563 

1-1667 

1-1713 

1-1798 

1-1847 

l-ieaa 

1-2039 


1-1136 

1-1653 

1-1045 

1-1559 

1-1656 


1-19003 

1-1909 


1-2219# 


1- 494 
1- 523 


1-1012 
1-1042 
1-1066 
1-1093 
1-1128 
1-1161 
1 - 120 ? 
1-1226 
1-1258 
1-1286 
1-1349 
1-1377 
1-1427 
1-1484 
1-1540 
1-1587 
1-1673 
1-172? 
1-1801 
1-1859 
1-1891 


1-1227 

1-1677 

1-1066 

1-1681 


1-1901 

1-19113 


1- 5073 
1- 5273 


1-1015 

1-1045 

1-1072 

1-1096 

1-1135 

1-1166 

1-1205 

1-1230 

1-1261 

1-1298 

1-1352 

1-1379 

1-1431 

1-1500 

1-1553 

1-1649 

1-1676 

1-1753 

1-1805 

1-1861 

1-1895 


1-1269 

1-1142 


1-19033 

1-2237# 


1- 508 
1- 528 



CROSS REFERENCE 


ntd 

1- 5323 
1- 546 
1- 566 
1- 5913 
1- 6113 
1- 627 
1 - 6513 
1. 666 
1- 800 
1-1162 
1-12953 
1-1333 
1-15033 
1-15503 
1-17503 
1-2049 
1-21313 
1- 309« 

NTNAD 

1-1666 
1- 297W 

*1TNS 

1- 300M 

h r f j V 

1- 295M 

HTP 

1- 331 « 

HfPM 

1- 333m 

NTRO 

1-1344 
1- 31Om 

*TS - 

1- 7 31 
1-16933 
1- 305M 

MTTRP 

1- 756 
1- 8393 
1 - 666 
1-1179 
1-1256 
1-1570 
1-1617 
1-2032 
1- 254 

RTV 

1- 303m 

•1TVN 

1-13463 
1- 366 

MTVS 

1- 304« 

NOP 

1-13693 
1- 284M 

NKMT 

1-1242 

ocr 

1- 327« 

OCTP 

1-1973 

OCTPRT 

1-1972 

OCT1 

1-2176 

0CT2 

1-2102M 

PAR 

1 -3 491M 

PAH 1 

1-1533 

PAH 2 

1-1537 

PARS 

1-1561M 

PAR4 

1-1576 

PC 

1- 293m 


1-20673 

1-21243 


TABLt S-3 


1- P33 

1- 5373 

1- ^623 

1- 553 

1- 0743 

1- 575 

1- ^*2 

1- 5963 

1- 612 

1- 6163 

1- 6313 

1- 632 

1- 6523 

1- 653 

1- *>733 

1- 674 

1- 662 

1- 090 

1-1^003 

1-12093 

1.1296 

1-12973 

1-13553 

1-1356 

1-15063 

1-15073 

1-10013 

1-15633 

1-1/34 

1-1799 

1-21193 

1-21213 

1-2a 333 
1- 437 

1- 467 

1-16B7 

1-1965 

1- 356 

1- 3/03 

1- 373 

1- 3693 

1- 372 

1- 3693 

1-1304 

1- 0913 

1-1292 

1-1045 

1- 362 

1- 451 

1- 94q 

1-12533 

1-1/03 

1-1709 

1- 355 

1- 416 

1- 764 

1- 771 

1- 042 

1- 647 

1- 912 

1- 958 

1-12033 

1-1206 

1-1263 

1-1277 

1-1585 

1-1751 

1-1624 

1-1062 

1-2035 

1-2063 

1- P69 

1- 374 

1- 3673 

1- 3723 

1-15693 

1-13903 

1- 372M 
1- 3683 

1- 3733 


1-1268M 

1-21813 

1-2*004 

1-2a 74 M 
1-2178M 
1-2192 

1-21913 

1-1P56M 

1 -1D 4 2 W 


1-1300 

1-1584M 

1-19463 

1-19923 

1-20693 

1-20673 

1-21263 

1-21263 


1* 538 

1- 5423 

1- 5593 

1- 560 

1- 5793 

1- 560 

1- 5993 

1- 600 

1- 617 

1- 6213 

1- 6363 

1- 637 

1- 6593 

1- 660 

1- 6763 

1- 679 

1- 995 

1-1016 

1-1259 

1-12733 

1-13083 

1-1309 

1-1361 

1-1372 

1-15203 

1-15233 

1-15 663 

1-15673 

1-18213 

1-1065 

1-21233 

1-21253 

1- 7153 

1- 716 


1-1305 

1-1306 

1-1293 

1-1318 

1- 501 

1- 7263 

1-15143 

1-15583 

1-1937 


1- 466 

1- 736 

1- 778 

1- 784 

1- 848 

1- 851 

1- 964 

1-1085 

1-1212 

1-1216 

1-1284 

1-1364 

1-1757 

1-1777 

1-1869 

1-1886 

1-2145 


1- 391 

1-1390 

1- 3813 

1-12943 

1- 3823 

1-12933 


1-20203 

1-20283 

1-20923 

1-21023 

1-21303 

1-21323 


1- 543 

1- 5473 

1- 5663 

1- 5673 

1- 5843 

1- 585 

1- 6063 

1- 607 

1- 622 

1- 6263 

1- 6443 

1- 645 

1- 6663 

1- 6673 

1- 6833 

1- 664 

1-1106 

1-1150 

1-12743 

1-1280 

1-13273 

1-1330 

1-1425 

1-1477 

1-15243 

1-15473 

1-17373 

1-17433 

1-1689 

1-1982 

1-21273 

1-21293 

1-1530 

1-1573 


1-1319 

1-1320 

1- 727 

1- 7303 

1-1669 

1-16833 

1- 744 

1- 750 

1- 803 

1- 836 

lo 854 

1- 8593 

1-1147 

1-1164 

1-1231 

1-1234 

1-1375 

1-1527 

1-1788 

1-1803 

1-1893 

1-1981 

1-1933# 

1-13073 

1-13213 

1-13053 

1-13193 


1-20533 

1-20553 

1-21203 

1-21223 

1-21343 

1-21363 



CROSS REFERENCE TABLE $-4 



1-21383 

1-21403 

1-21423 


l-2l96a i 

1-22023 

1-22063 

PRINT 

1-1949 

1-19784 


PRINTl 

1- 329tt 

1- 3833 

1-1994 

PRTMSG 

1- 2614 

1- 340 

1-1727 


1-1831 

1-1637 

1-1843 

P8T0CT 

1- 279w 

1-2000 

1-2002 


1-2012 

l-2u 14 

1-2016 

PRTGUT 

1- 200« 

1-2IU6 

1-2109 

PWRClR 

1- 2624 

1- 457 

1- 465 


1- bOO 

1- 621 

1- 862 


1- 977 

1- 998 

1-1019 


1-1215 

1 - 1*62 

1-1283 


1-1564 

1-1*17 

1-1613 

RBuF 

1- 696 

1- 9tfl 

1- 974 


1-1120 

1-11*03 

1-11413 


1-1417 

1-2137 

1-14*8 

1-2*414 

1-1432 

RBUFCA 

1- 2714 

1- 680 

1- 905 


1-1421 

1-1473 

1-1516 

REAO 

1- 2644 
1-1659 

1- 963 
1-1634 

1-1007 

RETURN 

1- 3304 

1- 3763 

1-20273 

REWIND 

1- 2664 

1- 633 

1- 66b 


1-1002 

1-2034 

1-10*7 

1-1043 

RGRTST 

1-1953 

l-2ua?4 


RHSTST 

i-1952 

1-20804 


ROTCp.p 

1- 2784 

1-1612 

1-1616 

RO 

1- 206« 

1- 0973 

1- 3663 


1- 394a) 

1- 395 

1- 3963 


1 - 1 3 2 5 a) 

1-13*63 

1-1327 


1-1 3933 

1-1394 

1-14043 


1-1417 

1-14283 

1-1429 


1-14493 

1-14303 

1-1451 


1-1 4 593 

1-1460 

1-14803 


1 -1 517a) 

1-15183 

1-15193 


1-1538 

1-13443 

1-15453 


1-1563 

1-15733 

1-15743 


1 - 1 6 l 7a) 

1-1>19 

1-16233 


1-1 6343 

1-16553 

1-16 363 


l-1687a» 

1-1^983 

1-16 69 


1 -1 7 3 4 a* 

1-1735 

1-1 76 7 3 


1 -1 6 5 4 a) 

1-19153 

1-19163 


1-21613 

1-21633 

1-2164 

R1 

1- 2674 

1- ^563 

1- 3593 


1- 400 

1-14813 

1-1462 


1-1614 3 

1 -1 ° 16 

1-16203 


1-16333 

1-1656 

1-10693 


1-21643 

1-21653 

1-2166 

R2 

1- 2064 

1- 3473 

1- 3553 


1- 6473 

1- L 543 

1- 9643 


1-17833 

1-10103 

1-18303 


1-19783 

1-19 793 

1-19803 


1-19853 

1 - 1 v 0 6 3 

1-19873 


1-19993 

1-20013 

1-20033 


1-20133 

1-20153 

1-20353 


1-2100 

1-2103 

1-2105 


i-2ma 

1-21463 

1-21553 

1-21693 

1-19983 

1-1747 

1-1773 

1-1784 

1-1811 

1-1675 

1-1899 

1-1997 

1-2195 

1-2004 

1-2006 

1-2006 

1-2010 

1-2111 

1-2178 

1-2189 


1- 472 

1- 479 

1- 486 

1- 493 

1- 871 

1- 699 

1- 921 

1- 949 

1-1088 

1-1125 

1-1163 

1-1187 

1-1301 

1-1868 

1-1315 

1-1692 

1-1338 

1-1360 

1-1010 

1-11003 

1-1113 

1-11193 

1-1153 

1-11563 

1-1159 

1-1415 

1-1458 

1-1481 

1-1662 

1-1665 

1- 962 

1-1005 

1-1102 

1-1143 

1-1560 

1-1657 

1-1682 


1-1103 

1-1144 

1-142? 

1-1474 

1-2040 

1- 676 

1- 922 

1- 955 

1- 978 

1-1176 

1-1222 

1-1720 

1-1920 


1-1624 

1-1630 



1- 389 

1- 3903 

1- 391 

X- 3933 

1 - 3 98 

1- 3993 

1-11913 

1-1192 

1-13533 

1-13543 

1-1355 

1-13923 

1-1405 

1-1408 

1-14153 

1-14163 

1-1452 

1.14363 

1-14373 

1-1438 

1-14523 

1-1453 

1-14573 

1-14583 

1-1482 

1-15013 

1-15023 

1-1503 

1-1520 

1-15303 

1-15313 

1-1534 

1-15463 

1-1547 

1-15613 

1-15623 

1-1577 

1-1581 

1-16113 

1-1613 

1-1625 

1-16293 

1-1631 

1-1632 

1-1637 

1-16683 

1-16703 

1-1674 

1-17023 

1-17053 

1-17083 

1-17113 

1-1768 

1-17693 

1-1770 

1-18513 

1-2152 

1-21533 

1-2154 

1-21603 

1-21663 

1-21673 

1-21683 


1 - 3 50 

1- 3613 

1- 3973 

1- 3983 

1-1485 

1-16013 

1-160? 

1-16053 

1-1622 

1-16263 

1-1628 

1-16323 

1-16713 

1-2151 

1-21523 

1-21543 

1- 3603 

1- 362 

1- 8033 

1- 0423 

1-12483 

1-17263 

1-17463 

1-17723 

1-16363 

1-16423 

1-16743 

1-18983 

1-19813 

1-19823 

1-19833 

1-19643 

1-19583 

1-19893 

1-19933 

1-19963 

1-20053 

1-20073 

1-20093 

1-20113 

1-20493 

1-20633 

1-2084 

1-2099 

1-21123 

1-2175 

1-21793 

1-21803 



CROSS RCFC.Rt.NCL TAOLt S-5 


R3 

R9 


R5 

SAVE 

SCOPE 


SCOPEA 

SCOPEO 

SCPRT 

SELECT 


SP 


SPACEB 

SPACEF 

SR 


start 

STCU12 

S1CEF 

STCHD 

STCRU 

STCSO 

STCSF 

STCSL 

STCUIT 

TABLE 

tamo 

TOC 

TCOL 

repo 

TCflS 
TC(< W 
TCSF 
TCSL 

TCSR 


1-21623 
1- 289# 
1-20503 
1- 290# 
1-20513 
1- 291 U 
1- 344# 
1 - 2 0 C 9 
1- 257# 
1- 449 
1- 499 
1* 541 
1- 503 
1- 626 
1- 672 
1- 736 
1- 703 
1- 903 
1-1221 
1-1365 
1-1719 
1-1000 
1-1V50 
1-2026 
1-2031 
1- 2694 
1-1707 
1- 292# 
l-1306o) 
1-1979 
268# 
1-1412 
1- 267 a 
1- 202# 
1- 719 
1 -1 2 H 1 
1-1575* 
1-2 u 1 7 
1- 295 
1-1965 
1-1950 
1-1957 
1-1959 
1-1961 
1-1960 
1-1962 
1-1956 
1-1947 
1- 360 
1- 6 91# 
1- 335# 
1- 336# 
1- 340# 
1- 342# 
1- 339# 
1- 332# 
1-2133 
1- 312# 


1-21035) 

l- ao**a 

1-20643 
1- 0055) 
l-2u=>53 
1-2U83a 
1-1976 
1-2011 
1- 407 
1- 4 56 
1- ^ 06 
1- 546 
1- 090 
1- 630 
1- 677 
1- 743 

1 - 79 4 

1-1001 

l-l<4o 

1-1434 

1-1749 

1-1U20 

1-2U25# 

1-2029# 

1-2033 

1- /3 7 

1-1614 
1- ^465) 
1-1936 
1-2027 
1- 906 

1-1469 
1- 6 31 
1- 357 
1- 7615) 
1-1492 
1-15893 
1-2025 
1- 345# 
1-2119# 
1-2125# 
1-2123# 
1-2127# 
1-2131# 
1-2129# 
1-2133# 
1 - 2121 # 
1-1V49# 
1- 360# 
1- 69ft 

1- 397 

1-14463 

1-2131 

1-1353 

1-2129 

1- 3953 

1-1*1? 


1-21643 
1- 8433 
1-2084 
1- 0443 
1-20903 
1-20003 
1-1999 
1-2013 
1- 414 
1- 464 
1- 513 
1- 551 
1- 597 
1- 635 
1- 602 
1- 749 
1- 027 
1-1024 
1-1268 
1-1456 
1-1760 
1-1026 


1-2040# 
1- 777 
1-1045 
1- 3773 
1-19443 
1-2029 
1-1070 
1-1511 
1-1047 
1- 365 
1- 935 
1-15043 
1-1694 
1-2200 


1- 363 

1- 400 
1-14513 

1-2127 

1-1191 

1-20903 


1-2165 
1- 8553 
1-21513 
1- 8563 


1-2001 
1-2015 
1- 421 
1- 471 
1- 521 
1- 557 
1- 605 
1- 643 
1- 639 
1- 755 
1- 064 
1-1091 
1-1290 
1-1491 
1-1766 
1-1044 


1-1322 

1-1877 

1-12913 

1-19453 

1-20543 

1-1076 

1-1555 

1-105ft 

1- 337 

1-1109 

1-15213 

1-1723 


1-1821 

1-1517 


1-1197 

1-2203 


1-21883 
1- 9653 
1-2153 
1- 9663 


1-2003 

1- 420 
1- 470 
1- 526 
1- 565 
1- 610 
1- 650 
1- 701 
1- 763 
1- 075 
1-1126 
1-1302 
1-1500 
1-1775 
1-1072 


1-1347 

1-13033 

1-19463 

1-20603 

1-1097 

1-1654 

1- 393 
1-1 1113 
1-15323 
1-1729 


1-1561 


1-1449 


1-21903 

1-12493 

1-12503 


1-2005 

1- 435 
1- 485 
1- 531 
1- 573 
1- 615 
1- 658 
1- 713 
1- 77o 
1- 929 
1-1170 
1-1316 
1-1641 
1-1706 
1-1076 


1-164? 

1-13173 

1-19473 

1-20063 

1-1137 

1-1678 

1- 695 
1-1117 
1-15483 
1-1040 


1-2X23 


1-1734 


1-21943 

1-20363 

1-20373 


1-2007 

1- 442 
1- 492 
1- 536 
1- 570 
1- 620 
1- 665 
1- 725 
1- 776 
1- 954 
1-1190 
1-1342 
1-1701 
1-1793 
1-1096 


1*1776 

1-13433 

1-1940 

1-1228 


1- 707 
1-1156 
1-15643 
1-1990 


1-1767 



CROSS REFERENCE TABU- S-6 


tcwe 

l- 341# 



tcwf 

1* 338# 

1-1325 

1-2125 

TCUT 

1- 337# 

1-12/4 

1-1436 


1-1544 

1-2121 


roe 

l- 715# 

1- / 22 


TOBR 

1- 311# 

1-1*143 

1-22053 

TE.MP 

1- 315# 

1- 6903 

1- 691 


1- 704 

1- / 093 

1- 7143 


1-11 9fta) 

1-11993 

1-1200 


1 -14 35a) 

1-14403 

1-1441 


1-15983 

1-16003 

1-1601 


1-1614 

l-l°2o 

1-1626 


1-17453 

1-1/30 

1-17623 


1-1609 

1-1829 

1-1933 

tempp 

1- 316# 

1-1*343 

1-1939 

temps 

1- 317# 

1-1*533 

1-1938 

T4A 

1- 703# 

1- 710 


TMRT 

1-1494 

1-1331 

1-1697 

TMTNFL 

1- 314# 

1- 3763 

1- 7933 

TOP 

1-1954 

1-26 98# 


TOPI 

1-2100# 

1-2107 

1-2113 

T0P2 

1-2104 

1-2106# 


TRAP34 

1- 248 

1-1*44# 


treof 

1-1112 

1-1H7# 


TRLE 

1-1110 

1-1116 

1-1125# 

T SR 

1- 767 

1- //6# 


tstb 

1-2081 

1-2U93# 

1-2069 

TSTCuR 

1- 256# 

1- / *5 

1- 808 


1- 885 

1- *0 7 

1- 933 


1-1028 

1-1633 

1-1038 


1-1071 

1-1077 

1-1092 


1-1134 

1-1130 

1-1145 


1-1223 

1-1229 

1-1245 


1-1348 

1-1331 

1-1356 


1-1463 

1-1466 

1-1470 


1-1525 

1-1852 

1-1556 


1-1660 

1-1679 

1-1685 


1-1846 

l-l86o 

1-1676 

tstend 

1-1725 

1-1731 

1-1873 

TSTEOF 

1- 275# 

1- 612 

1- 822 


1-1061 

1-1073 


TSTIN 

1-20803 

1-26823 

1-2005# 

T STL 

1-2085 

1-2038# 


TSTROY 

1-1969 

1-2063# 


TSTRGR 

1- 260# 

1- 806 

1- 845 

TSTRGS 

1- 259# 

1-2038 

1-2052 

T7CM 

1- 762 

1- .'70# 


uslen 

1- 343# 

1-1 / 393 

1-17443 

JSS 

1-1741 

1-1746# 

1-1764 

USS1 

1-1736 

1-1742# 


yA ITTR 

1- 276# 

1- 610 

1- 877 


1-1185 

1-1*25 

1-1254 

y br 

1-1392# 

1 -13 95 

1-1444 

WARS 

1-13 91# 

1 -1 4 4 n 


y hr l 

1-1405# 

1-1409 


WBK2 

1-1416# 

1-1418 


WBft 3 

1-1429# 

1-1433 


UBR4 

1-14 42 

1-1445# 



1-14453 

1-1447 

1-14538 

1-1501 

1- 692 

1- 6973 

1- 7023 

1- 703 

1- 715 

1- 716 

1- 7213 

1-11973 

1-13913 

1-1393 

1-1405 

1-1429 

1-14433 

1-14603 

1-1461 

1-1472 

1-16073 

1-16083 

1-1610 

1-1611 

1-1642 

1-1643 

1-16963 

1-17403 

1-1763 

1-177Q3 

1-1771 

1-1762 

1-19363 

1-19383 

1-1968 


1-1701# 

1-17183 

1-18393 

1-2030 



1-2091 

1- 828 

l- 631 

1- 63# 

1- 866 

1- 969 

1- 987 

1-1008 

1-1025 

1-1041 

1-1044 

1-1048 

1-1059 

1-1095 

1-1098 

1-1104 

1-1127 

1-1171 

1-1177 

1-1201 

1-1210 

1-1271 

1-1275 

1-1323 

1-1328 

1-1398 

1-1401 

1-1413 

1-1423 

1-1475 

1-1499 

1-1508 

1-1512 

1-1568 

1-1648 

1-1651 

1-1655 

1-1721 

1-1797 

1-1815 

1-1822 

1-1918 
1-1898# 
1- 897 

1-1921 

1- 900 

1- 909 

1-1050 


1- 857 
1-2066 

1- 967 

1-1251 


1-1763 

1- 923 

1- 956 

1- 979 

1-1003 

1-1370 

1-1923 

1-1925 
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WBR5 

l-l482* 

1-1486 


WBUF 

1 - 618 

1 - J*46 

1- 989 


1-1394 

1-1404 

1-1408 


1-16443 

1-1662 

1-1665 

W8uFCA 

1- 270* 

X- / 9fl 

1- 931 


1-1132 

1-1174 

1-1244 


1-1649 

1 -lCBl 


wreof 

1- 265# 

1 - /99 

1- 830 

write 

1- 263# 

1 - 932 

1- 966 


1-1400 

1-1465 

1-1650 

XttOR 

1- 277# 

1-1615 

1-1621 

• 

1- 242# 

1- 246 

1- 247# 


1- 401 

1 - 410 

1- 417 


1 - 452 

1 - 459 

1 - 467 


1 - b02 

1 - ^09 

1- 517 


1 - 544 

1 - 649 

1- 554 


1- 566 

1 - 593 

1 - 601 


1 - 626 

1- 633 

1- 638 


1- 675 

1 - 6^0 

1 - 685 


1- 717 

1 - 720 

1- 726 


1- 757 

1 - 765 

1- 772 


1 - 616 

1 - 019 

1- 023 


1 - 660 

1 - 069 

1- 0 83 


1- 901 

1 - 910 

1- 913 


l- 947 

1 - 959 

1- 972 


1-1011 

1 -1U 1 4 

1-1017 


1-1074 

1-lottO 

1-1083 


1-1121 

1-1148 

1-1151 


1-1180 

1-1 a 83 

1-1193 


1-1217 

1-1232 

1-1235 


1-1281 

1-1235 

1-1334 


1-1426 

1-1430 

1-1439 


1-1522 

1-1526 

1-1535 


1-1576 

1 -1^2 

1-1506 


1-1666 

l-lt>72 

1-1675 


1-1710 

1-1712 

1-1724 


1-1776 

1-1789 

1-1000 


1-1855 

1 -1 b 56 

1-1858 


1-1890 

1-1694 

1-1913 


1-2101 

1-2201 

1-2204 


1-1092 

1-11293 

1-11303 

1-1392 

1-14953 

1-14963 

1-16423 

1-16433 

1-1852 

1-2135 

1-2239# 

1-2240 

1- 985 

1-1031 

1-1036 

1-1069 

1-1397 

1-1498 

1-1543 

1-1645 

1-1040 

1-1094 

1-1175 

1-1350 

1-1032 

1-1037 

1-1133 

1-1247 

1-1796 

1-1627 

1-1850 

1-1883 


1 - 250# 

1- 294# 

1- 296# 

1- 344# 

1 - 424 

1- 431 

1- 438 

1- 445 

1- 474 

1- 461 

1- 488 

1 - 495 

1- 524 

1- 529 

1- 534 

1 - 539 

1 - 561 

1- 569 

1 - 576 

1 - 581 

1 - 608 

1- 613 

1 - 618 

1- 623 

1- 646 

1- 654 

1 - 661 

1- 669 

1 - 693 

1- 696 

1- 705 

1- 70S 

5- 752 

1- 739 

1 - 745 

1- 751 

1- 779 

1 - 705 

1 - 801 

1- 813 

1 - 837 

1- 640 

1- 849 

1- 852 

1 - 69ft 

1- 091 

1- 894 

1- 697 

1- 916 

1- 919 

1- 941 

1- 944 

1- 975 

1 - 990 

1- 993 

1- 996 

1-1051 

1-1054 

1-1062 

1-1065 

1-1096 

1-1107 

1-1114 

1-1118 

1-1154 

1-1157 

1-1160 

1-1165 

1-1195 

1-1204 

1-1207 

1-1213 

1-1257 

1-1260 

1-1264 

1-1278 

1-1362 

1-1365 

1-1376 

1-1406 

1-1478 

1-1483 

1-1493 

1-1505 

1-1539 

1-1549 

1-1565 

1-1571 

1-1590 

1-1603 

1-1606 

1-1663 

1-1690 

1-1695 

1-1704 

1-1706 

1-1730 

1-1752 

1-1755 

1-1750 

1-1804 

1-1016 

1-1625 

1-1653 

1-1863 

1-1666 

1-107n 

1-1887 

1-1917 

1-2240# 

1-1991 

1-1995 

1-2018 
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3 


4 

1 

S 

1 • 

6 

1 

7 

1 

a 

!*♦*♦♦ 

9 

1 

10 

l 

u 

(♦♦♦♦♦ 

12 


13 
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14 

1 

15 

1 

16 

1 

17 

1 

IB 

) 

19 

1 

20 

12 . 

21 

1 

22 

12,1 

23 

I 

24 

1 

25 

1 

26 

12,2 

27 

1 

26 

12 , 2*1 

29 

) 

30 

1 

31 

1 

32 

12,3 

33 

1 

34 

1 

35 

1 

36 

1 

37 

(3, 

38 

1 

39 

13*1 

40 

\ 

41 

1 

42 

1 

43 

i 

44 

1 

45 

l 

46 

l 

47 

) 

48 

14 . 

49 

1 

50 

1 4 « 1 

51 

l 

52 

1 

53 

I 

54 

1 

55 

14*2 

56 

I 

57 
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.TITLE P468 
,ENA6L COR 

ABSTRACT 


* WPvpDpll DATA RELIABILITY PROGRAM ( 7 AND 9 TRACK) * 

♦PROGRAM LISTING * 706.0 * 

*♦♦♦♦♦♦«♦♦*««♦♦♦♦*♦♦♦♦♦*****♦♦**♦♦****«***♦*«***♦♦*»**** 

THE WP DATA RELIABILITY PROGRAM COLLECTS STATISTICAL 

information pertaining to the data reliability of the tape system 

WHEN RUN FOR EXTENDED PERIODS OF TIME. IT USES A NUMBER OF 

different parameters controlling data patterns, parity* density 
Record lengths, writing and heading oequencls ano stopping moqess 

(NONSTOP, START-STOP, RANDOM STALL DELAY), 

REQUIREMENTS 

EQUIPMENT 

PDP-11 WITH TAPE CONTROLLER AND 1 TO 6 TAPE UNITS (7 AND/OR 9 TRACK) 
STORAGE 

program storage 

THE ROUTINE REQUIRES 4K OF MEMORY. 

PRELIMINARY PROGRAMS 

THE 466.X TAPE INSTRUCTION TEST 0I06N0STIC MUST RUN 
PROPERLY BLFORE ATTEMPTING TO USE THIS PROGRAM. 

LOADING PROCEDURE 


PROCEDURE FOR NORMAL BINARY TAPES SHOULD BE FOLLOWE03 

r 

r 

1. ABSOLUTE LOADER MUST BE IN MEMORY. 

2. PLACt BINARY TAPE IN READER, 

3. LOAD ADDRESS *7500 (♦ DETERMINED BY LOCATION OF LOADER) 

4. PRESS "START" (PROGRAM WILL LOAD). 

STARTING PROCEDURE 

CONTROL SWITCH SETTINGS 

for initial operation of program all switches should be * o 

(OR DOWN). 

starting address 

200 - BASIC TEST (AUTOMATIC PARAMETER AND UNIT SELECTION) 


FOR PDP-11, our LQNTiYDLIEK 
YD &US LEVEL 5 
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58 

5*5 

GO 

£1 

62 

63 

64 

65 
£6 

6 7 
68 

69 

70 

7 t 

72 

73 

74 

75 

76 

77 
76 

79 

80 
a* 
82 

83 

84 

85 

86 
87 
86 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 


204 - OPERATOR 

CONTROLLED 

PARAMETER 

TEST 

(WITH 

4K 

memory 

AVAILABLE 

210 - OPERATOR 

CONTROL!ED 

PARAMETER 

TEST 

(WITH 

8K 

MEMORY 

AVAILABLE 


4,3 PROGRAM AND/OR OPERATOR ACTION 

LOAD PROSRAM INTO MEMORY 

SET d£sI*EQ TUIO TAPE UNITS ON-LINE 

LOAD STARTING ADDRESS 200 (204 OR 210 TO SELECT PARAMETERS AND 
UNITS) 

PRESS START-PROGRAM WILL BEGIN TESTING FOR LOAD ADDRESS OF 200 
OTHERWISE 

SELECT TAPE UNITS (REFERENCE 4,3,1*1) 

SELECT PARAMETERS (REFERENCE 4,3,2) . 

TYPE CARRIAGE RETURN AND PROGRAM WILL BEGIN TESTING* 

4,3*1 TAPE UNIT SELECTION 

STARTING THE PROGRAM AT 200 WILL RESULT IN AUTOMATIC SELECTION 
OF THE UNITS TO BE TESTLO (REFERENCE 4,3,1,2) OTHERWISE STARTING 
AT 204 OR 210 WILL ALLOW OPERATOR TO SELECT UNITS* 

THE PROGRAM WILL TYPE "SELECT UNITS", ANY CONFIGURATION OF 
1 TO 6 UNITS MAY BE SELECTED BY TYPING TML UNIT NUMBERS ON 

The teletype, any sequence of numoers may be typed, after 

EACH NUMBER IS TYPED A COMMA (,) WILL BE PRINTED, TYPING THE 
SAME UNIT NUMBER Twice WILL CAUSE THAT UNIT NUMBER TO BE DELETCO* 
TYPING ANY KEY OTHER THAN 0 THRU 7 WILL CAUSE A QUESTION MARK 
(7) TO BE PRINTED AND THAT KEY WILL BE IGNORED* 

TO TERMINATE unit SELECTION TYPE A carriage RETURN, WHEN 
CARRIAGE RLTJKN IS TYPED THE PROGRAM WILL CONTINUE TO THE 
"PARAMETER SELECTION" UNLESS NO UNITS WERE SELECTED AND IN 
THAT EVENT WILL RETURN TO THE BEGINNING OF "SELECT UNITS". 

4,3*1,X TAPE UNIT SELECTION EXAMPLES 

SELCCl U4ITS 3,4,5 
SELECT UNITS 5,3,4 

IN EITHER CASE, UNITS 3,4,5 ARE SELECTED. 

SELECT UNITS 

A CARRIAGE RETURN WAS TYPED WITH NO UNITS SELECTEO. 

SELECT UNITS 1,97,1*2 

ONLY UNIT 2 SELECTED, UNIT 1 WAS DELETED (TYPEO TWICE) 

AND THE 9 WAS IGNORED. 

4,3*1,2 STARTING AT 200 WILL RESULT IN AUTOMATIC SELECTION OF UNITS TO 
BE TESTLO, A UNIT WILL BE SELECTED FOR TESUNG IF IT MEETS THE 
FOLLOWING CRITERIA} 

1, IT IS ON-LINE 

2. IT IS WRITE ENABLED CR 
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115 

116 
117 
na 

119 

120 
121 
122 
124 

124 

125 

126 

127 

128 
129 
1 50 

131 

132 

133 

134 
13b 

136 

137 

138 

139 

140 

141 

142 

143 

144 
14b 

146 

147 
140 

149 

150 

151 

152 

153 

154 
15b 

156 

157 
150 

159 

160 
161 
162 

163 

164 

165 

166 
167 
160 
169 
1 70 
171 


IF THE ABOVE CRITERIA ARE NOT MET BY AT LEAST ONE (1) UNIT« 

operator selection will be required (Reference 4*3.i>* 

4*3*2 PARAMETER SELECTION 

starting the program at 200 will result in an automatic selection 

OF TEST PARAMETERS (REFERENCE 4*3*2*10) OTHERWISE STARTING AT 
AODRESS 204 OR 2io WILL ALLOW OPERATOR TO SELECT PARAMETERS, 

FOR 7 TRACK UNITS THERE ARE 7 PARAMETERS TO BE CONTROLLED BY CR 
THE OPERATOR. THEY ARE: TEST NUMBER* PATTERN* PARITY* DENSITY* CR 

Record length* write mode* and read moue. for 9 track units cr 
THERE ARE S OPERATOR CONTROLLED PARAMETERS. THEy ARE ALL THE CR 
7 TRACK PARAMETERS JUST REFERENCED EXCEPT PARITY AND DENSITY, CR 
IN EITHER CASE, THE PROGRAM PRINTS THE FOLLOWING; CR 

•»YST PAT PAR OEN RLS WMO RMQ“ 

TST=TEST NUMBER 
PAT ^PATTERN 
PAR=PARITY 
DENrDENSITY 

RLS=REC0HU LENGTH SEQUENCE 
WM0=WRITE stakt/stop mode 

RMG=READ STaRT/STGP MODE 
4•4*2•1 TEST NUMBER 

THERE ARE 6 TESTS AVAILABLE FOR SELECTION (0 THRU 5)* 

TEST DESCRIPTION 

0 WRITE 1 RECORD. REPEAT ON ALL UNITS* CONTINUE TO EnO 

OF TAPE. 

1 WRITE 256 RECORDS, REPEAT FOR ALL UNITS* CONTINUE TO ENO 
OF TAPE* 

2 WRITE 256 RECORDS* REPEAT FOR ALL UNITS* BACKSPACE 256 
RECORDS, REPEAT FOR ALL UNITS* READ 256 RECORDS* REPEAT 
FOR ALL UNITS, CONTINUE TO END OF TAPE* 

3 WRITE 1 RECORD, REPEAT FOR ALL UNITS* BACKSPACE* REPEAT 
FOR ALL UNITS, RLAO 1 RECORD* REPEAT FOR ALL UNITS* 

CONTINUE TO ENU OF TAPE, 

4 WRITE 1 RECORD, REPEAT FOR ALL UNITS, REPEAT FOR 256 
RECORDS, BACKSPACE 25b RECORDS, REPEAT FOR ALL UNITS, 

READ 1 RECORD, REPEAT FOR ALL UNITS, RLPLAT FOR 256 
RECOROS, CONTINUE TO END OF TAPE, 

NOTE? THIS TEST WILL HOT FUNCTION PROPERLY WHEN OPERATING 
ON A DUAL DENSITY SYSTEM (NR2/PE) WHOSE DENSITY SELECTION 
IS COMPUTER CONfROLED. 


I 

I 


5 


RE AO 1 RECORD, REPEAT FOR ALL UNITS, CONTINUE TO END 
OF TAPE, 
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172 

1 4*3«2o2«1 PATTERN <7 TRACK! 


CH 

173 

1 



174 

1 THERE ARE 8 OATA PATTERNS AVAILABLE FOR 

SELECTION 

(0 THRU 7) WITH £ ACH 

175 

1 parity# 



176 

1 



177 

1 pattern description 

DATA 


1/8 

t 



179 

1 o <even> high FREQUENCY outsioe SKEW 

01 


150 

1 

01 


181 

1 

ETC 


18? 

1 



183 

1 0 <OOD1 HALF FREQUENCY OUTSIDE SKEW 

01 


185 

1 

00 


185 

1 

01 


186 

1 

00 


187 

1 

ETC 


188 

1 



189 

1 1 <EVEN! SLIOINS **0 H 

37 


190 

I 

57 


191 

1 

67 


192 

1 

73 


193 

I 

75 


194 

1 

76 


195 

1 

ETC 


196 

1 



197 

1 1 <0001 SLIDING «1« 

40 


198 

» 

20 


199 

1 

10 


200 

1 

4 


201 

1 

2 


202 

1 

l 


203 

1 

ETC 


204 

1 



205 

1 2 <EVEN) HIGH FREQUENCY ALTERNATING 

25 


206 

1 TRACKS 

25 


207 

< 

ETC 


208 

t 



209 

1 2 <000! HIGH FREQUENCY ALTERNATING 

52 


210 

1 TRACKS 

52 


211 

1 

ETC 


212 

1 



213 

1 3 <EVEN) HALF FREQUENCY OUTSIOE TRACK 

77 


214 

I HI6H FREQUENCY INSIDE TRACKS 

76 


215 

1 

77 


216 

1 

76 


217 

1 

ETC 


218 

1 



219 

< 3 <00D) HIGH FREOUENCr OUTSIOE TRACK 

01 


220 

| HIGH FREQUENCY INSIDE TRACKS 

77 


221 

I 

01 


222 

* 

77 


223 

1 

ETC 


224 

1 



225 

< PATTERN DESCRIPTION 

OATA 


226 

1 



227 

\ 4 <EVEN) INCREMENTING PATTERN 

01 


228 

1 (NO ALL 0*S) 

02 




y s 
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229 $ 03 

230 I • 

231 I • 

2 32 I 77 

233 I 

234 I 4 1000) INCREMENTING PATTERN 00 

23b I INCLUDING ALL Q*S) 01 

236 I 02 

237 I • 

2 30 I • 

239 I • 

240 I 77 

241 I 

242 I 5 lEVEN) THREE Q#S EACH TRACK EVERY 37 

243 I 6TH UORO 37 

244 I 37 

245 I 57 

246 I 57 

247 1 57 

240 I 67 

249 I 67 

250 I 67 

251 t 73 

252 » 73 

253 I 73 

254 I 7b 

255 I 75 

256 I 75 

257 t 76 

250 I 76 

259 I 76 

260 I EIC 

261 I 

262 « 5 10001 THREE 1»S EACH TRACK EVERY 40 

263 I 6TM WORD 40 

264 t 40 

265 I 20 

266 I 20 

267 I 20 

268 I 10 

269 l 10 

270 t 10 

271 I 04 

272 I 04 

273 I 04 

274 I 02 

275 I 02 

276 I 02 

277 I 01 

278 I 01 

279 I 01 

260 I ETC 

201 I 

202 « 6 (OOOtEVEN) ALL i*S 77 

203 I 77 

264 \ ETC 

265 I 
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266 

I 7 (EVEN) RANDOM (NO ALL 0 9 S) 

? 



287 

t 




288 

1 7 (000) RANDOM (INCLUDING ALL 0*SI 

? 



289 

t 




290 

1 9*3,2.2.2 PATTERN (9 TRACK) 



CR 

291 

I 



CR 

292 

1 THERE ARE 8 DATA PATTERNS AVAILABLE FOR 

SELECTION (0 THRU 7) 

CR 

293 

1 



CR 

29*t 

I PATTERN DESCRIPTION 

OATA 

channels 

CR 

295 

1 



CK 

296 

I 9 INCREMENTING pattern 

000 

090 

CR 

297 

1 

001 

200 

CR 

298 

t 

002 

002 

CR 

299 


003 

202 

CR 

300 

1 

• 

* 

CR 

301 

1 

• 

. 

CR 

302 

1 

• 

. 

CR 

303 

1 

377 

777 

CR 

309 

1 

ETC • 

ETC. 

CR 

305 

1 




306 

1 5 EACH CHANNEL 3 BITS 

000 

090 

CR 

307 

1 

000 

090 

CR 

308 

1 

000 

090 

CR 

309 

1 

200 

009 

CR 

310 

1 

200 

009 

CR 

311 


200 

009 

CR 

312 

1 

100 

010 

CR 

313 

1 

100 

010 

CR 

319 

1 

100 

010 

CR 

315 


090 

020 

CR 

316 

1 

090 

020 

CR 

317 

1 

090 

020 

CR 

318 


020 

100 

CR 

319 

1 

020 

100 

CR 

320 

1 

020 

100 

CR 

321 

t 

010 

001 

CR 

322 

i 

010 

001 

CR 

323 


010 

001 

CR 

329 

i 

009 

900 

CR 

325 

i 

009 

900 

CR 

326 

i 

009 

900 

CR 

327 


002 

002 

CR 

328 

t 

002 

002 

CR 

329 

i 

002 

002 

CR 

330 


001 

200 

CR 

331 


001 

200 

CR 

332 

i 

001 

200 

CR 

333 

$ 

ETC. 

ETC. 

CR 

339 

i 




335 

1 6 high frequency all channels 

377 

777 

CR 

336 

1 

377 

777 

CR 

337 

1 

ETC. 

ETC. 

CR 

338 

1 




339 

( 7 RANOOM 

7 

? 

CR 

390 





391 

( 9*3.2.3 PARITY (7 TRACK ONLY) 



CR 

392 

1 







P 468 


MACRO V06-03 12-QEC-74 12224 PAGE 1-6 


343 

344 

345 

346 

347 
346 

349 

350 

351 

352 

353 

354 

355 
556 

357 

358 

359 

360 

361 

362 

363 

364 
36b 

366 

367 

368 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 
300 

381 

382 

383 

384 
305 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 


PARITY SELECTION IS EITHER EVEN OR ODD, 

PAR DESCRIPTION 

0 EVEN PARITY, 

1 ODO PARITY 

4.3.2.4 DENSITY (7 TRACK ONLY) CR 

THERE ARE 4 TYPES 0F DENSITIES FOR SELECTION <2*5,8tC) 

DEN DESCRIPTION 

2 200 bits per inch, 

5 556 BITS PER INCH, 

8 800 BITS PER INCH, 

c 800 dpi core Dump, 

4* 3,2*5 RECORD LENGTH SEQUENCE 

THERE ARE 4 TYPES OF Rf.CORO LENGTH SEQUENCES FOR SELECTION <C THRU 3) 
RLS DESCRIPTION 

0 MINIMUM LENGTH RECOROS (4 BYTES! 

1 MAXIMUM LENGTH RECORDS 11024 BYTES! 

2 VARYING LENGTH RECOROS, MINIMUM TO MAXIMUM UST RECORD:: 

4 BYTES, EACH SUCCESSIVE RECORD IS 4 BYTES LONGER 
UNTIL 255TH RECOKU-1024 BYTES) 

3 VARYING LENGTH RECORDS, MAXIMUM TO MINIMUM <1ST RECORD* 

1024 BYTES, EACH SUCCESSIVE RECORD IS 4 BYTES SHORTER 

UNTIL 256TH HECORO-4 BYTES) 

4*3,2,6 WRITE START/STOP MODE 

THERE ARE 3 TYPES 0F WRITE MOOES FoR SELECTION ( 0 THRU ■'* I 
WMO DESCRIPTION 

0 NONSTOP s NO WAITING BETWEEN WRITE OPERATIONS, NEW 

COMMAND IS ISSUED WHEN CU READY SETS, 

1 START/ST DP - FULL STOP BETWEEN WRITE OPERATIONS, NEW 

COMMAND IS ISSUEO WHEN TU Ui ■•vUY SETS, 

2 RANDOM . FULL STOP WITH RANDOM DELAY 11-25* MILLISECONDS! 

4«5,2,7 REAO START/STOP MODE 

THERE ARE 3 TYPES OF MODES FOR SELECTION <0 THRU 2) 
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400 

401 

402 

403 

404 

405 
4 n 6 
407 
400 

409 

410 

41 1 

412 

413 

414 

415 
4 16 
4 17 
410 

419 

42 0 

421 

422 

423 

424 

425 

426 

427 

420 

429 

430 

431 

432 

433 

434 

435 
4 36 
437 
430 

439 

440 

441 

442 

443 

444 

445 

446 

447 
440 

449 

450 

451 

452 

453 

454 
4 55 
456 


RMO DESCRIPTION 

0 NONSTOP - NO WAITING BETWEEN READ OPERATIONS* NEW 

COMMAND IS ISSUED WHEN CU ready sets* 

1 STaRT/STDP - FULL STOP BETWEEN READ OPERATIONS. NEW 

COMMAND IS ISSUED WHEN TU READY SETS* 

2 RANDOM - FULL STOP WITH RANDOM OELAY <1-256 MILLISECONDS! 
4*3,2,8 FINAL TEST SELECT APPROVAL 

after selecting RMO* if all parameters selected are legal, »0K" 

WILL BE PRINTED, IF THE PARAMETERS SELECTCO STILL CORRESPOND 
TO THE OPERATORS INTENTIONS HE MUST TYPE A CARRIAGE RETURN 
TO SAVE THE PARAMETERS. TYPING ANY OTHER KEY NOW, OR IN FACT 

at any time during parameter selection typing an illegal key 

WILL CAUSE THE ^KESLNT PARAMETERS TO BE OELETEU AND A NfW 
PARAMETER SELECTION TO BE INITIATED* UP TO TEN SETS OF 
Parameter selections can be made, each set will be executed 
AFTER The previous set reaches eno of tape, to terminate 
parameter selection a second carriage return must be typed AFTER 

SELECTING A Set OF PARAMETERS, 

4*3,2,9 TEST SELECTION EXAMPLES 

TST PAT par Den RLS WMO RMO 
3202100 OK (CR) 

3 *? 

0 0 1 6 2 2 2 OKX? 

0116210 OK (CR) 

(CR) 

TWO parameters sets were selected by the above sequence 

TEST3, PATTERN 2, EVEN PARITY* 200 BP1* MAXIMUM RECOHO LENGTH. 
WRITE NONSTOP, AND READ NONSTOP, 

TEST 0. PATTERN 1* ODD PARITY, 800 BP1, VARYING RECORD LENGTH 
(MIN TO MAX), WRITE START/STOP, READ NONSTOP, 

(NOTE) EVEN THOJGH TEST 0 IS A WRITE ONLY TEST, ALL PARAMETERS 
MOST BE SATISFIED,> (IN THIS CASE RMO HAS NO EFFECT) 

IN THE SECOND PARAMETER SET A »*K‘» WAS TYPED WHICH WAS ILLEGAL 
AND THE. SET wAS REINITIALIZED, 

IN THE THIRD PARAMETER SET AN “X" WAS TYPED INSTEAD OF A CAR¬ 
RIAGE RtTUKN ANO THE PARAMETERS WERE IGNORED, AFTER AT LEAST 
ONL GOOD SET WAS SELECTED A CARRIAGE RETURN WAS TYPED AT THE 
BEGINNING OF THE PARAMETER SELECTION AND THE PROGRAM WOULD START 
TESTING, 

NOTE! IF NO 7 TRACK UNITS ARE AVAILABLE FOR TESTING* THE CR 

PROGRAM WILL PRINT XXX IN THE PARITY AND OENSITy POSITIONS CR 

SINCE TriEIR SPECIFICATION IS NOT REQUIRED FOR 9 TRACK UNITS, CR 

CR 

4*3,2,10AUTOMATIC PARAMETER SELECTION 
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457 

1 





458 

1 

STARTING AT 200 WILL CAUSE THE 

following test parameters 


459 

1 

TO 

BE SELECTEO AUTOMATICALLY 3 



460 

1 





461 

1 

TST 

PAT PAR OEN RLS WHO RMO 



462 

1 

3 

7 1 C 2 1 1 



463 

1 

3 

0 0 8 3 1 1 



464 

1 

2 

1 1 5 2 0 0 



465 

1 

note* parity an!) density parameters applicable to 7 track only 

CR 

466 

1 





467 

t 2>,0 


operating procedure 



468 

1 





469 

1 i>»l 


operational switch settings 


470 

1 





471 

1 

the 

OPERATIONAL SWITCH settings are USEO to: 


472 

1 





4 73 

1 

A, 

ALTER ERROR RECOVERY PROCEDURES 


474 

1 





475 

1 

B. 

DELETE ERR03 PRINTOUTS 



4 76 

t 





477 

1 

c, 

CAUSE A TEST SEQUENCE TO BE REPEATED WITH A VARIATION 


478 

1 


THE PATTERN, RECORD cEnGTH 

sequence, write mode, OR read HOOE 

479 

1 





480 

1 5« l • 

1 

SWITCHES TO ALTER ERROR RECOVERY 


481 

1 





482 

1 

THE 

function performed is with 

THE SWITCH In THE «*1« < OR UP) 


483 


POSITION, 



484 

1 





4 85 

1 

sw 

function 

PURPOSE 


406 






487 

1 

4 

delete read KE-TKYS 

USE OF THIS SWITCH WILL CAUSE 


488 

1 



DELETION OF THE NORMAL SEQUENCE 


489 

♦ 



OF TRYING TO RE-READ A RECORO 


490 

1 



AFTER A READ ERROR, THIS WOULD 


491 

1 



BE USEFUL FOR SCOPING READ 


492 

1 



OPERATIONS, 


493 

* 





494 

1 

5 

DELETE WRITE XIRG 

USE OF THIS SWITCH WILL CAUSE 


495 

1 



RECOROS WITH WRITE ERRORS TO 


496 

1 



BE LEFT ON TAPE, THE HEAD PASS 


497 

1 



WITH DATA TYPLOUTS SELECTED 


498 

I 



WOULD BE USEFUL FOR DETERMINING 


499 

t 



WRITE ERROR ORIGINS, 


500 

I 





501 

1 

6 

WRITE STATISTICAL 

USE OF THIS SWITCH WILL CAUSE 


502 

1 


recovery 

A BACKSPACE 2 RECORDS, SPACE 


503 

1 



FORWARD 1 RECORDi REWRITE RECORD 


504 

1 



SEQUENCE TO BE USED INSTEAD 


505 

1 



OF WRITE XIRG SO THAT THE RECORO 


506 

t 



WILL BE REWRITTEN ON APPROXI¬ 


507 

1 



MATELY THE SAME AREA OF TAPE 


508 

1 



WHERE THE WRITE ERROR OCCURRED, 


509 

* 



THIS METHOD KEEPS THE INTER- 


510 

1 



RECORD GAP FROM GETTING LARGER, 


5U 

1 



DATA IS WRITTEN OVER THE SAME 


512 

1 



SPOT ON TAPE TO TRY AND FIND BAD 

TAPE • 

513 

1 
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514 

515 

516 

517 

518 

519 
5?0 
521 
52? 

523 

524 

525 

526 
5?7 

528 

529 

530 
5U 

532 

533 

534 

535 

536 

537 

538 

539 
5 '* 0 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 


5*1*2 

SWITCHES 10 CONTROL 

ERROR PRINTOUTS 



THE 

UP) 

function performed 

POSITION* 

IS WITH THE SWITCH 

in the »i" jor 


SW 

FUNCTION 

PURPOSE 



13 

suppress error 

PRINTOUT 

THE STATISTICS CONCERNING THE 
NUMBER AND TYPES OF ERRORS Will 
BE PRINTED WHEN THE TAPE UNIT 


REACHES END OF TAPE, FOR LONG 

periods of testing (overnight, £Tc» 
IT MAY BE SUFFICIENT TO RECEIVE 
THIS INFORMATION AND NOT HAVE A 

typeout each time an error occurred 

8 PRINT ER40R STATISTICS AFTER COMPLETION OF EVERY RECORD 

LENGTH SEQUENCE INSTEAD OF AFTER 
ENO OF TAPE AS IS NORMAL, 


5.1.3 SWITCH TO ALTER T&ST PATTERNS 

SW FUNCTION PURPOSE 

0 CHANGE PATTERN AFTER COMPLETION OF A TEST SE¬ 

QUENCE REPEAT with next pattern* 
UNTIL PATTERN 7 IS COMPLETED, 

THIS FEATURE Is useful For TESTING MAnT COMBINATIONS OF test 
patterns without requiring the operator to type in a large 

NUMBER OF PARAMETERS, 

EXAMPLE; TST ?aT par oen rls who rmo 

3 2 0 2 1 0 0 

4 6 0 2 0 0 0 

WITH SW0=1 

TEST 3 WILL BE EXECUTED 6 TIMES (PATTERNS 2-7) 

ANO THEN TEST 4 WILL BE EXECUTED 2 TIMES (PATTERNS 6*7) 

NOTE; XXX PRINTEO FOR PARITY AND DENSITY IF ONLY 9 TRaCK UNITS CR 

6 « ERRORS 

6*1 WRITE ERRORS 

THE FOLLOWING ERROR TYPEOUTS ARE POSSIBLE DURING A WRITE 
OPERATION. 

A. WRITE STATUS ERROR 

COMO STATUS RECORD LENGTH EXPECTEO ACTUAL 

XXXXXX XXXXXX 

THIS WILL OCCUR IF ERROR (BIT 15 OF COMMAND REGISTER) SETS 
ON A WRITE COMMAND. THE CONTENTS OF THE COMMAND AND STATUS 
REGISTERS IS PRINTEO ALONG WITH THE RECORD NUMBER AND RECOR 
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571 

572 

573 

574 

575 
5 76 

577 

578 
5/9 
580 
5ft 1 

582 

583 

584 
5«5 

586 

587 

588 
569 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 
$00 
601 
68 2 

603 

604 

605 

606 

607 

608 

609 

610 
611 
612 

613 

614 

615 

616 
617 
616 

619 

620 
621 
622 
62 3 

624 

625 

626 
627 


LENGTH* 

61 XIRG WRITTEN 4 TIMES 

THIS WILL OCCUR IF A WRITE STATUS ERROR CANNOT BE ELIMIN¬ 
ATED IN 4 ATTEMPTS AT RE-WRITING THE RECORD WITH EXTENDED 
INTCRRECDRO GAP, NOT POSSIBLE DURING TEST 0 OR 1 AS THESE 
ARE “WRITE ONLY" TESTS AND IT IS NOT ABSOLUTELY NECESSARY 
FOR THE ReCORoS TO BE WRITTEN PROPERLY. SETTING SWITCH 
5 TO A “l” WILL DELETE “WRITE” WITH XIR6. 

C* END OF TAPE 

DRV PAT PAR DEN MODE RECORD LENGTH 
070 800 SSTP 1276 MAX 

WRITE ERRORS = 5 

RECOVERED AT 1 s 3 

RECOVERED AT 3 s 1 

PERMANENT OAOSPOT a 1 

DRV = UNIT NUMBER 

pat s pattern number 

PAR s PARITY (7 TRACK ONLY) CR 

DEN = DENSITY <7 TRACK ONLY) CR 

MODE - W41TC START/STOP MODE 
RECORO - NUMBER OF RECORDS 
LENGTH = LENGTH OF RECORDS 

ON UNIT 0. USING PATTERN 7. EVEN PARITY* 800 8P1* WRITE 
MODE STaRT/STOP. 1276 RECORDS OF MAXIMUM (1048 BYTES) LENGT 
W£R£ WRITTEN. DURING THAT TIME 5 WRITE STATUS ERRORS 
OCCURRED, 3 WERF RECOVERED ON THE 1ST RE-wRlTE, l RECOVERED 
ON THE 3*0 RE-WRITE. THE REMAINING ERROR NOT RECOVERED IS 
CONSIDERED TO b£ CAUSED BY A PERMANENT BAD SPOT ON TAPE* 

NOTE; THE ABOVE EXAMPLE ILLUSTRATES OUTPUT FOR A 7 TRACK UNIT. CR 
IF THE UNIT WAS 9 TRACK, X WOULO RE PRINTED IN THE PARITY CR 

AND DENSITY POSITIONS. CR 

CR 

6*2 READ ERRORS 

THE FOLLOWING E*ROR TYPtOUTS ARE POSSIBLE DURING A READ 
OPERATION I 

A* READ STATUS ERROR 

COMD STATUS RECORO LENGTH EXPECTEO ACTUAL 

XXXXXX XXXXXX 47 4 

THIS WILL OCCUR WHEN ERROR (BIT 15 OF COMMAN0 REGISTER) 

SETS OURING A RFAU OPERATION, THE CONTENTS OF THE COMMAND 
AND STATJS REGISTERS IS PRINTED ALONG WITH THE RECORD NUMBE 
ANf) RLCOTO LENGTH, 

8* READ OATA ERROR 
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628 

629 

630 

631 

632 

633 
639 

635 

636 

637 

638 

639 

640 

641 

642 
o43 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 


COMD STATUS RECORD LENGTH EXPECTED ACTUAL 

XXXXXX XXXXXX 107 1024 177777 175777 

THIS WILL OCCUR WHEN THE DATA REAO DOES NOT AGREE WITH THE 
DATA WRITTEN* THE CONTENTS OF THE COMMAND AND STATUS REGISTERS 
IS PRINTEOt ALONG WITH THE RECORO NjMBER AND RECORD LENGTH* 

also printed is the contents of the memory address from 
WHICH the DaTa WAS WRITTEN (EXPECTED) AND THE CONTENTS OF TmE 
MEMORY ADDRESS INTO WHICH IT WAS READ (ACTUAL), THIS INDI¬ 
CATES the first data transfer error founo for the record# 

NO ATTEMPT is MADE TO DETERMINE IF THERE ARE OTHER DATA ERRORS 
IN THE RECORD, 

C* READ PASS 

END OF TAPE 

DRV PAT PAR OEN MODE RECORO LENGTH 

3 4 1 CD NS TP 1276 M*MAX 

READ STATUS ERRORS = 3 

DATA ERRORS = 1 

NON RECOVERABLE ERRORS = 0 

ON UNIT 3# USING PATTERN 4, 000 PARITY• CORE DUMP# READ MODE 
NONSTOP, 1276 RECORDS OF VARYING LENGTH (4 TO 1024) WERE 
READ, DURING THAT TIME 2 READ STATUS ERRORS AND 1 DATA 
ERROR OCCURRED* THERE WERE 0 NON-RECOVERABLE ERRORS WHICH 

indicates that the status and oata errors were eliminated by 

RE -RE ADI NIG THE RECORD UP TO THREE TIMES# 

NOTE: THE SAME DUTPUT CONVENTIONS FOR PARITY AnO DENSITY ARE CR 
APPLICABLE HERE AS IN SEC. 6.1.C CR 

CR 

6*3 ERROR RECOVERY PROCEDURES 


6,3,1 WRITE ERR04 RECOVERY 

THE PROCEDURE TO RECOVER FROM A WRITE ERROR IS DETERMINED BY 
THE FOLLOW INGI 

A* IS IT A “WRITE ONLY* 1 TEST OR WILL THE OATA BE REAP? 

B« IS “WRITE STATISTICAL RECOVERY** SELECTED <SW 6=1)? 

C* IS “DELETE WRITE WITH XIRG” SELECTED <SW 5=1)? 

6* 3«1 • 1 IF IT IS A “WRITE ONLY** TEST AND “WRITE STATISTICAL RECOVERY** 
IS NOT SELECTED |SW 6=0) THE WRITE ERROR IS SIMPLY COUNTED 
AND THE PROGRAM PROCEEDS TO THE NEXT RECORO* 

6• 3* 1 • 2 IF IT IS A "WRITE ONLY** TEST ANO “WRITE STATISTICAL 

RECOVERY** IS SELECTED (SW 6 = 1), A WRITE ERROR IS COUNTED AND THEN 
A RECOVERY SEQUENCE (BACKSPACE 2 RECORDS, SPACE FORWARD 1 RECORD* 
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685 

1 

686 

• 

687 

< 

688 


689 

i 

690 

I 

691 

l 

692 

16*3*1 

693 

1 

694 

t 

695 

1 

696 

1 

697 

1 

698 

1 

699 

(6,3*1 

700 

( 

701 

1 

702 

1 

703 

1 

704 

1 

705 

(6,3*2 

706 

( 

707 

( 

706 

( 

709 

( 

710 

( 

711 

t 

712 

( 

713 

( 

714 

( 7* 

715 

( 

716 

( 

717 

( 

718 

( 8* 

719 

( 

720 

( a* l 

721 

( 

722 

I 

723 

i 

724 

I 

725 

( 

726 

( 

727 

( 

720 

( 

729 

( 

730 

( 

731 

( 

732 

( 

733 

I 

734 

( 

735 

( 

736 

( 

737 

( 8*2 

738 

( 

739 

( 

740 


741 

( 


REWRITE REC0«0) IS ENTFREO, THIS RECOVERY SEQUENCE WILL BE 
REPEATEO UP TO 7 TIMES IF THE WRITE ERROR PERSISTS* IF A 
WRITE ERROR IS VOT ELIMINATED AFTER THE 8T H ATTEMPT IT IS 
COUNTED AS A PERMANENT DAO SPOT ON TAPE* STATISTICS ARE SAVEO 
TO INDICATE HOW MANY TIMES THE REWRITE SEQUENCE HAD TO BE RE¬ 
PEATED TO RECOVER FROM EACH WRITE ERROR, 

IF IT IS A "WRITE AND REAO" TEST AND "WRITE STATISTICAL RECOVERY" 
IS SELECTED <SW 6=1) AND "WRITE WITH XIRG" IS NOT DELETED (3W 5=0) 
THE PROGRAM wILl FIRST ATTEMPT TO DO A "WRITE STATISTICAL RLCOVERy 
IF A PERMANENT 3 aD SPOT IS ENCOUNTERED THE PROGRAM WILL THEN 
ATTEMPT TO RECOVER WITH A "WRITE WITH XIRG", FAILURE TO RECOVER 
AT THIS POINT SHOULD RESULT IN A READ ERROR DURING THE READ PASS, 

IF IT IS A "WRITE AnD READ" TEST AnO "WRITE STATISTICAL RECOVERY" 
IS NOT SELECTED (SW 6=0) AND "WRITE WITH XIRG" IS NOT DELETED 
T SW 5 = 0) THE PROGRAM WILL TRT TO RECOVER ONLY BY REWRITING THE 
RECORD WITH EXTENDED INTERHCCORD GaP* FAILURE TO RECOVER SHOULD 
RESULT IN A READ ERROR OURIMG READ PASS, 

READ ERROR RECOVERY 

A READ ERROR CA\| OCCUR FOR TWO REASONS l STATUS ERROR OR DATA 
ERROR, A PROPER COUNT IS TAKEN FOR EACH TYPE OF ERROR, RECOVERY 
OF A READ ERROR WILL CONSIST OF TRYING TO RE-READ THE RECORD UP 
TO TWO MORE TIMES (UNLESS SW4=1 TO DELETE READ KE-TRYS FOR 
SCOPING PURPOSES)* IF THE ERROR PERSISTS IT IS CONSIDERED "NON- 
RECOVLRADEE" ANO THE PROGRAM WILL CONTINUE WITH THE NEXT RECORD, 

RESTRICTIONS 

NONE 

miscellaneous 

TAPE LENGTH 

SINCE EACH OF THE TESTS DEPEND ON REACHING THE "EOT" REFLECTOR 
FOR TERMINATING IT COULD BE ADVANTAGEOUS TO USE A "SHqRT" TAPE, 
THIS WOULD ALLOW FOR LESS TIME TO RUN A SERIES OF TESTS WHILE 
VARYING THE TEST PARAMETERS (REFERENCE 5,1,3), HOWEVER, THIS 
IS NOT INTENDED TO IMPLY THAT CONSTANTLY CHANGING THE TEST 
PARAMETERS CONSTITUTES A MORE DIFFICULT TEST OF DATA RELIABILITY, 
THE LENGTH OF TIME UNDER TEST IS MORE LIKELY TO SUPPLY THAT, 

IN ANY EVENT, IF A "SHORT" TAPE IS DESIRED, JUST PLACE AN "EOT" 
REFLECTIVE STRI* APPROXIMATELY 50 FEET DOWN TAPE FROM THE "f30T" 
MARKER, SO THAT THE TAPE IS STILL USEFUL AS A "LONG" TAPE 
ANOTHER "HOT" MARKER C0UL.0 BE PLACED A SHORT DISTANCE (APPROX¬ 
IMATELY 10 FELT) FARTHER DOWN ON TAPE, THIS WOULD EFFECTIVELY 
GIVE YOU two t a 3 rs, CARE must he exercised when MOUNTING the TAPE 
TO POSITION IT at THE PROPER "DOT" MARKER, 

MEMORY AVAILABLE 

THE PROGRAM REQJlRES 4K OF MEMORY, IF 8K IS AVAILABLE, 

STARTING THE PROGRAM AT ADDRESS 200 OR 210 WILL EXPAND THE WRITE 
AND READ DUFFERS SO THAT MINIMUM LENGTH RECORDS WILL BE 
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743 

1 

744 

1 9, 

745 

I 

746 

1 9«1 

747 

1 

746 

1 

749 


750 

1 

751 

1 

752 

1 

753 

1 
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1 
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1 

756 

1 
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1 9«2 
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1 

759 

1 

760 

1 

761 

1 

762 

1 

763 

1 

764 

1 

765 

1 

766 

1 9t 5 

767 

1 

768 

1 

769 

1 

770 

1 

771 

1 

772 

1 9»4 

773 

1 

774 

1 

775 

1 

7 76 

1 

777 

1 

778 

1 

779 

1 9*5 

780 

1 

761 

» 

762 

1 

783 

1 

704 

1 

785 

1 

786 

1 

787 

1 9,6 

788 

1 

789 

1 

790 

1 

791 

1 

792 

1 

793 

1 

794 

I 

795 

« 

796 

1 

797 

1 9»7 

790 
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6 BYTES ANO MAXIMUM LENGTH RECORDS WILL BE 2046 BYTES* 

PROGRAM DESCRIPTION 
GENERAL DESCRIPTION 

THE PROGRAM IS OESIG N EO AROUnD TWO MAIN SUBROUTINES ‘'WRITE** AnO 
“READ” AND A SERIES OF MINOR SUBROUTINES FOR MANIPULATING UNIT 
SELECTION, HANDLING ERROR STATISTICS, AND RECORD POSITIONING, 

IF MORE THAN ONE UNIT IS SELECTED THE UNIT WITH THE LOWEST 
NUMBER IS SELECTED FIRST AND WHEN THE SEQUENCE IS COMPLETED 

then The next lowest unit NUMBER is SELECTED until all units have 
BEEN SELECTED * THIS PROCESS IS REPEATED UNTIL ALL UNITS REACH 
END OF TAPE, 

TEST 0 

THIS IS A “WRITE ONLY" TEST* THE PROCEDURE IS TO WRITE I RECORD, 
REPEAT FOR ALL JnITS, CONTINUE UNTIL EOT. WRITE MODE OF NONSTOP 
<WMO=0) Witt NOT bE AN EFFECTIVE SELECTION FOR THIS TEST BECAUSE 
THE WRITE ROUTINE IS EXITED AFTER EACH RECORD TO DETERMINE IF 
ANY OTHER UNITS ARE SELECTED. READ MODE (RMO) HAS NO EFFECT ON 
THIS TEST, 

TEST 1 

THIS IS A “WRITE ONLY” TEST SIMILAR TO TEST 0 EXCEPT A SEQUENCE 
OF 256 RECORDS IS WRITTEN ON EACH UNlT-BEFORE CHANGING TO THE 
NEXT UNIT, READ MOOE (RMO) HAS NO EFFECT ON THIS TEST, 

TEST 2 

THIS IS A “WRITE AnO READ” TEST, THE pROCEOURE IS TO WRITE 256 

RECORDS ON EACH UNIT, THEN BACKSPACE 256 RECORDS ON EACH UNIT* 

THEN REAO 25& RECOROS ON EACH UNIT, AND THEN REPEAT THE SEQUENCE 
UNTIL ALL UNITS ARE AT EOT, 

TEST 3 

THIS IS A “WRITE ANO READ” TEST* THE PROCEDURE IS TO WRITE 1 

RtCORO, BACKSPACE, READ 1 RECORD and REPEAT FOR EACH UNIT, THEN 

REPEAT THE SEQUENCE UNTIL ALL UNITS ARE AT EOT, WRITE MOOE OR 
REAO MODE OF NONSTOP (WMO-0 OR RMOsO) WILL NOT BE EFFECTIVE 
FOR THIS TESI . 

TEST 4 

THIS IS A "WRITE AND READ" TEST, IT IS SIMILAR TO TEST 2 EXCEPT 
UNITS ARE CHANGEO Bk-TulEEN EACH RECORD DURING WRITE, BACKSPACE, 

AND READ, WRITE MODE OR READ MODE OF NONSTOP (WMO=0 OR RMO=0I 
WILL NOT BE EFFECTIVE FOR THIS TEST, 

NOTE! THIS TEST WILL NOT FUNCTION PROPERLY WHEN OPERATING 
ON A DUAL DENSITY SYSTEM (NR2/PE) WHOSE DENSITY SELECTION 
IS COMPUTER CONTR0LE0. 


TEST 5 
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799 

1 

THIS IS A "READ ONLY* TEST« THE PROCEDURE IS 

TO READ 1 RECORO' 

600 

1 

REPEAT FOR ALL UNITS, AND CONTINUE UNTIL ALL 

UNITS ARE AT EOT, 

601 

1 

THE MAIN purpose of this TEST is to prove compatibility among 

80? 

1 

TAPE UNITS, A TAPE THAT IS WRITTEN ON ONE UNIT SHOULO BE ABLE 

603 

f 

TO BE READ ON ANY OTHER UNIT, TEST PARAMETERS THAT SELECT 

304 

1 

pattern and record length seouence must be the same as those used 

605 

t 

TO WRITL THE OATA ON TAPE, ANY OF THE OTHER 

TESTS <0 THRU 4) 

80f> 

1 

CAN 0E USED TO GENERATE THE DATA, 


607 

1 



BOB 

1 10' 

LISTING 


809 

1 



810 

1 

STATUS AND COMMAND REGISTER BIT ASSIGNMENTS 


911 

1 



912 

1 

COMMAND REGISTER 


813 

1 



814 

115 

ERROR 


815 

t 



816 

114 

DEN 8 00 = 200 BPI 7 TRACK 

10 = 800 6pl 7 TRACK 

817 

113 

DEN 5 01 a 556 BPI 7 TRACK 

11 = 800 BPI 9 TRACK 

816 

<12 

POWER CLEAR 


819 

1 



820 

<11 

PARITY 0 s OOD 1 a EVEN 


821 

<10 

UNIT SEL, BIT 2 


822 

<9 

UNIT SEL, BIT t 


623 

1 



824 

<8 

UNIT SEL, BIT 0 


825 

<7 

CONTROL UNIT REAOY 


826 

<6 

INTERRUPT ENABLE 


827 

< 



828 

<5 

ADDRESS BIT 17 


829 

<4 

ADDRESS BIT 16 


830 

<3 

FUNCTION EH T 2 000 s OFF LINE 

100 * SPACE FORWARD 

831 

< 

001 = read 

001 = SPACE REVERSE 

832 

<2 

FUNCTION BIT 1 010 a WRITE 

110 = WRITE XIRG 

833 

<1 

FUNCTION BIT 0 011 a WRITE EOF 

111 a REWIND 

834 

<0 

GC 


835 

< 



836 

1 



837 

< 

STATUS REGISTER 


838 

< 



839 

< 15 

ILLEGAL COMMAND (ILC) 


840 

< 



641 

< 14 

END OF FILE (EOF) 


842 

1 13 

CYCLICAL REDUNDANCY ERROR (CRE) 


843 

< 12 

PARITY ERROR <PAE) 


844 

< 



845 

< 11 

BUS GRANT LATE (BGL) 


84 6 

< 10 

END OF TAPE <EOT) 


847 

< 9 

RECORD LENGTH ERROR (RLE) 


848 

t 



849 

< 6 

BAD TAPE ERROR < BTE) 


850 

< 7 

NON EXISTENT MEMORY <NMX> 


851 

< 6 

SELECT REMOTE (SELR) 


852 

< 



853 

< 5 

BEGINNING OF TAPE (BOT) 


654 

$ 4 

7 channel <7ch* 


855 

< 3 

SETTLE DOWN (SOWN) 
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856 



1 







857 



1 2 

write: 

LOCH 

<w*u 




058 



t 1 

REWIND STATUS (RWS) 




859 



1 0 

TAPE 

UNIT 

HEADY ( TUR1 




860 



1 







861 




,ENA8L 

AMA 





662 


000000 


.ENA8L 

ABS 






663 






.NLIST ttm 




864 





1 





665 





)***********+***4>*************************«****+** ************************** 4* 


666 





t 





867 





iTITLE 

DATUM data RELIABILITY - 7 AND 9 TRACK 

CR 


668 


oooouo 



RQ-%0 





669 


000001 



Rl=«l 





670 


000002 



R2=X2 





871 


000003 



R3 = X3 





872 


000004 



R4 = 5i4 





673 


000005 



R5 = S5 





674 


000006 



SH = X6 





875 


0000*7 



PC = 5S7 





876 


oooouo 




.=0 




877 


OGOOlQ 




• -10 


CR 


870 


000005 




.REPT 3 


CR 


879 






.♦2 


C« 


660 






HALT 

itrapped to previous address 

CR 


661 






, ENDR 


CR 


882 


0000^4 




. = 34 




603 

000034 

012006 




TRAP34 




864 


00C2U0 




. =200 




885 

000200 

00G1*? 

001152 



JHP AUTOST 




666 

000204 

0001*7 

001552 



JMP MEM4K 




867 

000210 

0001*7 

001556 



JMP MEM8K 




606 

000214 

172520 



MTS I 

172520 




809 

000216 

172522 



mtci 

172522 




890 

000220 

172524 



BCI 

172524 




891 

000222 

172526 



CA1 

172526 




892 

000224 

OOOOUO 




0 

IPKIMARy INTERRUPT VECTOR LOCATION 

CR 


893 

000226 

oooooo 




0 


CR 


694 

000230 

1777^6 



CCI 

177776 




895 

000232 

1775/0 



SR t 

177570 




896 

000234 

1775^0 



TKS5 

177560 




897 

000236 

177502 



tkb: 

177562 




898 

000240 

177564 



tps: 

177564 




899 

0 U 0 2 4 2 

177566 



TPBI 

177566 




900 

000244 

0 0 2 0 0 0 



maxlen: 

1024. 1 

MAX RECORD LENGTH 



901 

000246 

0 0 0 0 o 4 



minlen: 

4. * 

MIN RECORD LENGTH 



902 

000250 

0133*4 



wbuf: 

BUFFER 1 

STARTING ADDRESS OF WRITE BUFFER 



903 

000252 

015324 



ruuf: 

BUTFEH+1024. 1 

STARTING ADDRESS OF READ BUFF 



904 

000254 

0002*4 



MTV • 

224 




905 





itemporary storage areas 




906 

000256 

oooouo 



atst: 

0 




907 

000260 

oooouo 




0 

iSECGNOARy INTERRUPT VECTOR LOCATION 

CR 


908 

000262 

oooouo 




0 


CR 


909 

C00264 

oooooo 



drvsel: 

0 




910 

000266 

oooooo 



strlln: 

0 

' 



911 

000270 

OOOOUO 



LENGTH! 

0 




912 

000272 

OOOOUO 



MSB1TS! 

0 




i 
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913 

000274 

oooooo 

SVRtCR: 

0 


9m 

000276 

oooooo 

comand: 

0 


915 

000300 

OOOQUO 

corvbt: 

0 


916 

000302 

OOOOU0 

cdrive: 

0 


917 

0G0304 

OOOOUO 

ROPASSi 

0 


918 

000306 

oooouo 

WKPAS3: 

0 


919 

000310 

oooooo 

BLKlNC: 

0 


920 

000312 

OOOOUO 

sTatrd: 

0 


921 

000314 

OOOOOO 

ukchlk: 

0 


922 

000316 

OOOOOO 


0 


923 

000320 

oooooo 


0 


924 

000322 

OOOOOO 


0 

__ 

925 

000324 

OOOOOO 


0 


926 

000326 

OOOOOO 


0 


927 

000330 

OOOOOO 


0 


928 

000332 

OOOOOO 


0 


929 

000334 

OOOOOO 

ptRMBS: 

0 


950 

000336 

OOOOOO 

record: 

0 


931 

000340 

OOOOOO 

uRREck: 

0 


932 

000342 

oooooo 

lasrcr: 

0 


933 

000344 

OOOOOO 

rderrs: 

0 


934 

000346 

oonouo 

DAEKR5: 

0 


935 

000350 

OOOOuO 

nhreao: 

0 


938 

000352 

OOOOOO 

URTLt'NJ 

0 


937 

000354 

oooooo 

RLAOLfj; 

0 


938 

000356 

OOOOOO 

mooes: 

0 


939 

000360 

000400 

dkvAOr: 

dotab 


940 

000362 

00051 4 


01TAB 


941 

000364 

000560 


D2TAQ 


942 

000366 

0006c 4 


D3TAD 


943 

000370 

0006/0 


D4TAB 


944 

000372 

000734 


D5TAB 


94 5 

000374 

001 ooo 


D6TAB 


946 

000376 

001044 


D7TAU 


947 


000450 

stack-450 


948 


000450 


• -450 


949 

000450 

OOOOUO 

dgtab: 

0 


950 


000514 


. =DOT A0444 


951 

0U0514 

OOOOuO 

01TAB2 

0 


952 


0005t>0 


*=D1TAB*44 


953 

000560 

OOOOOO 

D2TAB• 

0 


954 


0006^4 


• -D2T AB + 44 


955 

000624 

OOOOUO 

D3TABJ 

0 


956 


0006/0 


,=D3TAB444 


957 

000670 

OOOOUO 

04TAB: 

0 


958 


000734 


,=D4TABf44 


959 

000734 

OOOOOO 

D5TAB: 

0 


960 


001OUO 


• =05TAB-t 44 


961 

001000 

oooooo 

06TAB: 

0 


962 


001044 


.=061AB+44 


963 

001044 

oonouo 

07tab: 

0 


964 


001 no 


# =D7TAB444 


965 

0 01 i 10 

OOOOUO 

NUMTST l 

0 $ NUMBER OF TEST 


966 

001112 

oooooo 

param: 

0 1 TEST PARAMETERS 


967 

001114 

OOOOUO 

TSTEx: 

0 1 POINTS TO TESTS FARAMETE 

S TO BE EXECUTED 

968 

001116 

OOOOUO 

test: 

0 1 CONTAINS CURRENT TEST NU 

BER 

969 

001120 

OOOOUO 

tsttbl: 

0 1 TEST TABLE 
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970 

001122 

OOOOUO 




0 

1 DP 

TO 10 TESTS CAN BE SE 

ECTED 



971 

001124 

00001*0 




0 

1 BE 

RUN IN CONSECUTIVE OR 

ER 



972 

001126 

QOOOwO 




0 






973 

001130 

OOOOUO 




0 






974 

001132 

000000 




0 






97b 

001134 

000060 




0 






976 

001136 

OOOOUO 




0 






977 

001140 

OOOOUO 




0 






976 

001142 

OOOOUO 




0 






979 

001144 

OOOOUO 




0 






9a 0 

001146 

OOOOUO 



pGmode: 

u 


IPATTERN GEN. MODE - 1 

7T» 2=9Y 


CR 

981 

001150 

OOOOUO 



STFLGS: 

0 


17 TRACK FLAGS-BXT SET 

FOR EACH 7T UNIT 

CR 

982 

001152 

01270b 

000450 


autost: 

MOV 

tiSTACK«SP 

1 SET STACK POINTER 



CR 

983 

001156 

012737 

177777 

000256 


MOV 

#-l,ATST 




CR 

984 

001164 

0127 37 

037745 

001120 


MOV 

#37745,TSTTBL 





98b 

001172 

0127-7 

030265 

001122 


MOV 

#30265,TSTTBL+2 




986 

001200 

012 7 3 7 

021540 

001124 


MOV 

#2l54Q*TSTTBL+4 




987 

001206 

012737 

000003 

001110 


MOV 

#3 * NUMTST 





968 

001214 

012737 

123456 

007260 


MOV 

#123456»LONUM 

I PRIME RANDOM NUM8ER 

GENERATOR 



989 

001222 

012737 

176543 

007262 


MOV 

#176543 *HINUM 





990 





1 determine THE SI/E OF The 

WRITE AND READ BUFFERS 




991 

001230 

01273/ 

001244 

0 0 0 0 04 


MOV 

#nxmret «a#4 

1 SET UP NSM VECTOR 




992 

001236 

0U57 3 7 

023324 



TST 

0UFFER+4O96, 

1 OVER 4K OF MEMORY 




993 

001242 

0 0 0 4 U 3 




DR 

OVER4K I BR 

IF YES 




994 

001244 

0226<i 6 



nxmret: 

CMP 

< SP)♦* < SP) ♦ 

1 POP THE STACK 




99b 

001246 

104436 




SEIM4K 





CR 

996 

001250 

0004UI 




BR 

tu.sel 

t 




997 

001252 

X 0444 0 



0VER4K! 

SETMttK 





CR 

998 





1 determine drives to be tested 




999 





1 A DRIVE WILL 

BE TESTEO IFl 





1000 





t 

It IT 

CAN BE SELECTED 




1001 





1 

2 • IT 

IS WRITE ENABLED 



CR 

1002 

001254 

01273/ 

000006 

000004 

tu.sel: 

MOO 

#6,a>#4 

1 SET TRAP CATCHER 




1003 

001262 

0127/7 

010000 

176726 


MOV 

#10 0 00 , aiMTC 

1PWR CLR 




10 04 

001270 

005037 

000264 



CL R 

DRVSEL 

1 CLEAR DRIVE TABLE 




1005 

001274 

005037 

001150 



CLR 

STFlGS 

ICLEAR 7 TRACK UNIT FL 

GS 


CR 

1006 

001300 

005037 

000272 



CLR 

MSB ITS 





1007 

001304 

012700 

000200 



MOV 

#200 «R0 

|R0=DRIVE 0 




1008 

001310 

1057/7 

176702 



TSTB 

3MTC 





1009 

001314 

100035 




BPL 

10SELF 

IBR IF NO CU READY 




1010 

001316 

0137/7 

000264 

176672 

nxt.tu: 

MOV 

DRVSEL•3MTC 

1 SELECT A DRIVE 




1011 

003 324 

0127U2 

000024 



MOV 

U 20.* R2 

1 SET Up R2 FOR WAIT LO 

P 



1012 

001330 

0327/7 

000100 

176656 

usstst: 

BIT 

#100* 3MTS 

1 DOES DRIVE EXIST? 




1013 

001336 

001003 




DN£ 

USS.OK 

IBR IF YES 




1014 

001340 

0053U2 




ULC 

R2 





1015 

001342 

0033/2 




BGT 

USSTST 





1016 

001344 

0004 14 




BR 

NO.SEL 

1 DRIVE IS NON-EXISTENT 




1017 

001346 

0327/7 

000004 

176640 

uSs.qk: 

BIT 

#4,aMTS 

IIS WRITE LOCK ON? 



CR 

1018 

001554 

0 0 1 0 i 0 




BMC 

NO.SEL 

1 YES 



CR 

1019 

OU1356 

0327 / 7 

000020 

176630 


Dll 

#20.a-4TS 

IIS DRIVE 7 TRACK? 



CR 

1020 

001364 

0 014 0 2 




BEO 

USS1 0 

I NO 



CR 

1021 

001366 

05003 7 

001150 



BIS 

RO.STFLGS 

1 YES - SET 7 TRACK DR 

VE BIT IN 

FLAGS WORD 

CR 

1022 

001372 

0 500^7 

000272 


ussio ; 

BIS 

RO.MSBITS 

I SET DRIVE NO. IN TABL 



CR 

1023 

001376 

105237 

000265 


no.sel: 

INCB 

OKVSEL+1 

I INC, THE DRIVE NUMBER 




1024 

001402 

000241 




CLC 






1025 

001404 

006 0 0 0 




ROR 

RO 

I HAVE ALL DRIVES BEEN 

ESTED FOR 

EXISTENCE? 


1026 

001406 

001343 




ONE 

NXT.TU 

I OK IF NO 
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1027 





tTYPE-OUT name 

OF PROGRAM AND MIN, AND MAX• RECORD 

LENGTHS * 

1026 

001410 

0127U2 

012502 


iDsllf: 

MOV 

4MSG10A «R2 



1024 

001414 

1044U4 




TOP 




1030 

001416 

013702 

000246 



MOV 

MINLEN.R2 



1031 

001422 

1044*6 




DECPRT 


IPRINT MIN, LENGTH 


1032 

001424 

013702 

000244 



MOV 

MAXlEN,R2 



1033 

001430 

104426 




DECPRT 


IPRINT MAX. LENGTH 


1034 

001432 

00575 7 

000272 



TST 

MSBITS 

ItoERE ANY DRIVES SELEC 

ED? 

1035 

001436 

001002 




ONE 

• 4-6 

IBU IF YES 


1036 

001440 

00013/ 

001564 



JMP 

STARTl 

INO--GO HAVE OPERATOR 

ELECT DRIVES 

1037 





1 TYPE-OUT THE DRm/S to be 

TESTED 


1036 

001444 

0127U2 

012604 



MOV 

WMSG10B,R2 



1039 

001450 

104404 




TOP 




1040 

001452 

1 050 A / 

013324 



CLRB 

BUFFER 



1 C 4 1 

001456 

012701 

013324 



MOV 

WBUFFERtRl 



1042 

001462 

005000 




clr 

RO 

1 SET RO TO DRIVE 0 


1043 

001464 

0127U2 

000200 



MOV 

«200*R2 

*SET R2 TO DRIVE 0 


1044 





iFORM AND SAVE 

DRIVE NUMBER 

FOR TYPE-OUT 


1045 

001470 

105021 




CL M3 

C R11 4 

lSET EOM 


1046 

001472 

112721 

000040 



MOVB 

4* «(R1)4 

ISPACE 


1047 

001476 

03023/ 

000272 


LOOPERI 

BIT 

R2,MSBITS 

(DID THIS DRIVE NUMBER 

EXIST? 

1048 

001502 

001405 




BEQ 

2EROOO 

IBR IF NO 


1049 

U U 1 5 0 4 

110011 




MOVI3 

Ro. cRl) 

1YES--SAVE THE NUMBER 


1080 

001506 

152721 

000060 



BISR 

fi'0,(Rl)+ 

IMAKE IT ASCII 


1051 

001512 

112721 

000054 



MO VB 


I COMMA 


1052 

001516 

000241 



*erooo: 

CLC 


IPOSITION DRIVE BIT 


1053 

001520 

006 UU 2 




ROR 

R2 



1054 

001522 

005200 




INC 

RO 

IUPOATE DRIVE NUMBER 

4 

1055 

001524 

02U02 / 

000007 



CMP 

RO * tt7 

ILAST 


1056 

001530 

003762 




RLE 

EOOPER 

IBR If NO 


1057 

001532 

105011 




CLRB 

<R1> 

1SET EOM 


1056 

001534 

112741 

000100 



movq 

4*3,-<R1) 

ICR i IF 


1059 

001540 

012702 

013324 



MOV 

4DUFFER * R2 

ITTPE THE ORIVE/S SELE 

TED 

1060 

001544 

104404 




TOP 




1061 

001546 

00013/ 

002602 



JMP 

EXCCUT 

|60 start testing 


1062 










1063 





iMODlFY 

RECORD 

lengths and 

BUFFER AREAS FOR 4K« 


1064 

001552 

104436 



HEM4KI 

SETM4K 




1065 

001554 

000401 




BR 

START 



10 66 





IMODlFY 

RECORD 

LENGTHS AND 

BUFFER AREAS FOR BK, 


1067 

001556 

104440 



memBk: 

SETM8K 




1068 

001560 

00503/ 

000256 


start: 

CLft 

ATST 

lNOT AUlO STARI 


1069 

001564 

0127u6 

000450 


STARTl: 

MOV 

4ST ACK,SP 

1 Initial 12 E stack 


1070 

001570 

01273/ 

123456 

007260 


MOV 

4123456,LONUMlPRlME RANDOM 


1071 

001576 

01273/ 

176543 

007262 


MOV 

4176543,HINUMlNUMBER GERERAIOR 


1072 

001604 

012702 

012077 



MOV 

4MSG1.R2 



1073 

001610 

104404 




TOP 


IPRINT 1 SELECT UNITS* 


1074 

001612 

00503 / 

000272 



CLR 

MSBITS 

1 CLEAR SELECTED DRIVE 

NDICATOR 

1075 

001616 

00503/ 

001150 



CLR 

S TFLGS 

1 CLEAR 7 TRACK UNIT FL 

GS 

10 76 

001622 

10440 0 



seldrv: 

to A 1 T K Y 




1077 

001624 

122/03 

000015 



CMPD 

415,R3 



1078 

001630 

001010 




ONE 

SELD1 

|NO 


1079 

001632 

00573/ 

000272 



tst 

MSBITS 

I YES,WERE ANY DRIVES S 

LECTED 

1080 

001636 

001762 




BEQ 

STARTl 

INO 


1081 

001640 

00673/ 

000256 



TST 

ATST 



1062 

001644 

00144 1 




BEQ 

SELTST 

I YES NOW SELECT TESTS 


1083 

001646 

OGOI a/ 

002602 



JMP 

EXECUT 




} 
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loan 

001652 

1227U3 

000070 

SELOll 

CMPB 

#70,R3 

IIS CHARACTER A VALID 

UMBER 0*7? 

CR 

1065 

001656 

0034U3 



RLE 

SELD2 

1 NO .PRINT M ?« 



1066 

001660 

122703 

000060 


CMPB 

#60.R3 

tis character a valid 

UMBER 0*7? 

CR 

1087 

001664 

003404 



OLE 

VALID 

1 YES 



1088 

001666 

01270 5 

000077 

SCL02J 

MOV 

#*?.R5 



CR 

1089 

001672 

104454 



PRC 


IPRINT 


CR 

1090 

001674 

00 04*1 



DR 

VAL4 




1091 




lHAVE VALID drive: number 




1092 

001676 

1427u5 

000270 

valid: 

BICB 

#270*R3 

imask out number 


CR 

1093 

001702 

105105 



COMB 

R3 



CR 

1094 

001704 

012700 

000200 


MOV 

#200,RQ 

UNITIALIZE BIT POSITI 

N FOR DRIVE 0 


1095 

001710 

105203 


VALl t 

IMCB 

R3 

1 + 1 TO DRIVE SELECT 

.. _ 

CR 

109b 

001712 

001402 



REG 

VAL2 

lHAVE DRIVE OF EQUAL T 

ZERO 


1097 

001714 

0 062 u 0 



ASR 

RO 

IMOVE BIT POSITION TO 

EXT DRXyE 


1098 

001716 

000774 



BR 

VALl 

ITRY AGAIN 



1099 

001720 

130057 

000272 

VAL2: 

DITB 

ro.msbits 

i compare drive select 

ITH PREVIOUS 

SELECTED 

1100 

001724 

001003 



BNE 

VAL3 




1101 

001726 

15 0 0 5 7 

000272 


DI SB 

ro.msbits 

1 DRIVE WASN’T PREVIOUS 

Y SET* SO SET 

IT NOW, 

1102 

001732 

0 0 u4 0 2 



BR 

VAL4 




1103 

001734 

1400-7 

000272 

VAC31 

BICB 

ro.msbits 

IDR1VE WAS SET. CLEAR 

T. 


1104 

001740 

012705 

000054 

VAL4I 

MOV 

#• * *R5 



CR 

1105 

001744 

1044^4 



PRC 


ipkint comma 


CR 

1106 

001746 

0007*5 



BR 

SELORV 

1 RETURN TO WAIT FOR NE 

T KEY 


1107 




(HAVE DRIVES SELECTED-NOW 

GET TEST SELECTION 



1108 

001730 

012702 

012120 

scltst: 

MOV 

WMS02.R2 




1109 

001754 

104404 



TOP 


tPHINT•SELEC T TES TS* 



1110 

001756 

005037 

001110 


CLR 

NUMTST 

•CLEAR TEST NUMBERS SE 

ECTED 


mi 

0 01 762 

012 70 0 

001120 


MOV 

#tsttbl.ro 

UNITIALIZE TEST TABLE 

POINTER 


1112 

001766 

104 4 0 0 


seltu 

WAITKY 





1113 

001770 

122705 

000015 


CMPB 

#15.Hi 

1 WAS character A CARRI 

GE RETURN? 

CR 

ni4 

001774 

C 0 10 o 5 



BNE 

SELT 2 




1115 

001776 

00573 7 

001110 


TST 

BUMTST 

1 WERE ANY VESTS SELECT 

0? 


1116 

002002 

00141 0 



BEG 

SELT 3 

INO 



1117 

002004 

0 0 013 7 

002602 


JMP 

EXECUT 

1 YES, EXECUTE TESTS 



1118 

002010 

122703 

000066 

SELT2: 

CMPB 

#66.R3 

IIS character a valid 

UMBER 0*5 

CR 

1119 

002014 

00340 3 



BLE 

SELT3 

INO 



1120 

002016 

1227U5 

000060 


CMPB 

#60,R3 

IIS character * VALIO 

UMBER 0*5 

CR 

1121 

002022 

003404 



BLE 

SELPAT 

1 YES 



1122 

002024 

012702 

012072 

SELT3J 

MOV 

#MSG0*R2 




1123 

002030 

104404 



TOP 





1124 

002032 

0007^5 



BR 

SELT1 

IRETUKN TO WAIT for te 

T SELECT 


1125 

002034 

010304 


selpat: 

MOV 

R3*R4 



CR 

1126 

002036 

000304 



SWAB 

R4 

IROTATE TEST NUMBER IN 

0 POSITION 


1127 

002040 

006104 



ROL 

R4 




1126 

002042 

00ol04 



ROL 

R4 




1129 

002044 

0 0 61 u 4 



ROL 

R4 




1130 

002046 

006104 



ROL 

R4 




1131 

002050 

042704 

107777 


bIC 

#107777 ,R4 




1132 

002054 

1044^0 



SP3 


ITYPE 3 SPACES 



1133 




lHAVE VALID TEST SELECTED* 

NOW GET SELECTED PATTER 



1134 

002056 

10 4 4 0 0 



WAITKY 


IWAIT FOR PATTERN SELE 

TION 


1135 

002060 

122703 

000070 


CMPB 

#70.R3 

IIS CHARACTER A VALID 

UMBER 0*7 

CR 

1136 

002064 

00375 7 



BLE 

SELT3 

INO 



1137 

002066 

122703 

000057 


CMPB 

#57,R3 

IIS CHARACTER A VALIO 

UMBER 0*7 

CR 

1138 

0 0 2 ,; 72 

002354 



BGE 

SCLT3 

INO 



1139 

002074 

000305 



SWAB 

R3 

IMOVE PATTERN SELECT I 

TO POSITION 

CR 

1140 

002076 

006105 



ROL 

R3 



CR 
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1141 

002100 

0427o3 

170777 



BIC 

*170777,R3 




CR 

1142 

002104 

050304 




BIS 

R3,R4 

icombine pattern with 

EST 

CR 

1143 

002106 

1044*10 




SP3 






1144 





iDetermine which, if ANY, 

DRIVES ARE 7 TRACK AND S 

T 

CORRESPONDING 

CR 

1145 





« BITS 

IN THE 

SEVEN TRACK 

FLAGS WORD (STFL6S) 



CR 

1146 

002110 

0050^7 

000264 



CLR 

ORVSEL 

UNITIALIZE FOR 7 TRAC 

UNIT SEARCH 

CR 

1147 

002114 

0127U3 

000200 



MOV 

ft200*R3 




CR 

1146 

002120 

0137 U 

000264 

1 76070 

OET7T! 

MOV 

ORVSEL,9MTC 

1 SELECT NEXT DRIVE 



CR 

1149 

002126 

01270 2 

000024 



MOV 

820.,R2 

ISLT UP WAIT LOOP 



CR 

1150 

0U2132 

0327/7 

000100 

176054 

OET7T1! 

BIT 

8100,3MTS 

IDOLS ORIyC EXIST? 



CR 

1151 

002140 

001003 




BNE 

GET7T2 

1 YES 



CR 

1152 

002142 

005302 




DEC 

R2 

IWAIT A WHILE 



CR 

1153 

002144 

0033/2 




BGT 

DET 7 TI 




CR 

1154 

002146 

000406 




BR 

0E17T3 

1 TRY NEXT DRIVE NO. 



CR 

1155 

002150 

0327/7 

000020 

176036 

OET7T2S 

BIT 

820 *a)MTS 

US DRIVE 7 TRACK? 



CR 

1156 

002166 

001402 




BEQ 

OET7T3 

1 NO 



CR 

1157 

002160 

050037 

001150 



BIS 

R0,STFLGS 

tSET CORRESPONDING 7 T 

ACK DRIVE BIT 

CR 

1158 

002164 

105217 

000265 


OET7T3J 

INCB 

CRVSEL41 

1 INCREMENT DRIVE NO. 



CR 

1159 

002170 

000241 




CLC 





CK 

1160 

IHJ 2 1 7 2 

0060O3 




ROR 

R3 

1 HAVE ALL DRIVES BEEN 

HECKED? 

CR 

1161 

002174 

001361 




UNC 

DET7I 

1 NO 



CR 

1 162 

002176 

005737 

001150 



TST 

STKGS 

1 ARE ANY ORIVtS 7 TRAC 

? 


CR 

1163 

002202 

001004 




BNE 

SELPRO 

» YES - RFQUFST PARITY 

& 

DENSITY 

C« 

1164 

002204 

012702 

013315 



MOV 

8MSg31,R2 

1 NO * POSITION PAST P 

* 

0 

CR 

1165 

002210 

104404 




TOP 





CR 

1166 

002212 

00043 7 




BR 

SELON3 




CR 

1167 





(WAIT FOR PARITY SELECTION 

(0-EVEN, 1-ODD) 




1168 

002214 

104400 



SELPROJ 

WAITKY 





CR 

1169 

002216 

1227^3 

000060 



CMPB 

860 * R3 

IIS CHARACTER-0 



CR 

1170 

002222 

001405 




BEQ 

selpr 

iyes.even parity 




1171 

002224 

122703 

000061 



CMPB 

8 61 1 H 3 

IIS CHaRACTCR-1 



CR 

1172 

002230 

0012/5 




BNE 

SELT3 

1 NO,HAVE ILLEGAL KEY 




1173 

002232 

052704 

000400 



BIS 

8400•R4 

1 YES,ODO PARITY 




1174 

002236 

104430 



SElPRI 

SP3 






1175 





iwait for density selection 




1176 

002240 

10 4 4 U 0 




WAITKY 






1177 

002242 

12270 5 

000062 



CMPB 

8 6 2 • R 3 

IIS CHARACTERS 



CR 

1178 

002246 

0014U 




BEQ 

SELDN3 

1 YES, DENSIYY = 200 BPI 




1179 

002230 

122703 

000065 



CMPB 

865,R3 

US CHAKAC 7 ER = 5 



CR 

llttO 

002254 

001003 




BNE 

SELONI 

INO 




1181 

002256 

0527o4 

000100 



BIS 

8100,R4 

ISLT 0ENSITY=556 BPI 




1182 

002262 

000413 




BR 

SELDM3 





1183 

002264 

122703 

000070 


seloni: 

CMPB 

870,R3 

US CHARACTERS 



CR 

1184 

002270 

001003 




BNE 

SELON2 





1165 

002272 

G527o4 

000200 



BIS 

8200 ,R4 

1 SET DENSITYSOO BPI 




1186 

002276 

000405 




BR 

SELON3 





1187 

002300 

122703 

000103 


SEL0N2: 

CMPB 

8 * C ,R3 

US CHARACTERS 



CR 

1188 

002304 

00124 7 




BNE 

SELT3 

INO, HAVE ILLEGAL KEY 




1189 

002306 

052704 

000300 



BIS 

8300.R4 

1 SET CORE DUMP MODE 




1190 

002312 

104430 



SEL0N3: 

SP3 






1191 





{WAIT FOR RECORD LENGTH SEQUENCES SELECTION 




1192 

002314 

104400 




WAITKY 






1193 

002316 

122703 

000060 



CMPB 

860,R3 

IIS CHARACTERS 



CR 

1194 

002322 

0014*1 




BEQ 

SELh 3 

IYLS, RLS=MIN 




1195 

002324 

122703 

000061 



CMPB 

861,R3 

US CHARACTERS! 



CR 

1 196 

002330 

0 0 3 0 0 3 




BNE 

SELR1 





1197 

002332 

052704 

000020 



BIS 

820,R4 

ISLT RLS=MAX 
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1198 

002338 

000415 




BR 

SELR3 




1199 

002340 

122703 

000062 


SELRU 

CMPB 

#62,R3 

IIS CHARACTERa2 


CR 

1200 

002344 

001003 




BNE 

SELR2 




1201 

002346 

052704 

000040 



HIS 

#40•R4 

1 SET RLS-MIN-MAX 



1202 

002352 

000409 




OR 

SELR3 




1203 

002354 

1227b3 

000063 


SELR2I 

CMP8 

#63 % R3 

IIS CHARACTERS 


CR 

1209 

002360 

001221 




ONE 

3ELT3 




1205 

002362 

052704 

000060 



HIS 

#60.R4 

1 SET RLS=MAX-MIN 



1206 

002366 

104430 



SELR3J 

SP3 





1207 





1WAIT FOR WRITE MOnE SELECTION 



1208 

002370 

104400 




WAITKY 





1209 

002372 

12.2703 

000060 



CMPH 

#60 * R3 


__ 

CR 

1210 

002376 

001415 




BEQ 

SELW2 

1SET WMO-NONSTOP 



1211 

0024 CO 

1227U3 

000061 



CMPH 

#61 # R3 



CR 

1212 

002404 

001003 




BNE 

SELWI 




1213 

002906 

052704 

000004 



BIS 

#4«R4 

1 SET WMO = START-STOP 



1219 

002412 

00040/ 




HR 

SE.LW2 




1215 

002414 

122703 

000062 


sElwi: 

CMPB 

#62.R3 



CR 

1216 

002420 

0014U2 




BEQ 

SELW15 



CR 

1217 

002422 

0001^7 

002024 



JMP 

SELT3 



CR 

1218 

002926 

052704 

000010 


SELW15J 

BIS 

#10.R4 

1 SET WMQsRANDOM 



1219 

002932 

104430 



SELW2S 

SP3 





1220 





t WAIT FOR REAO 

MODE SELECTION 



1221 

002934 

104400 




WAITKY 



* 


1222 

002936 

122705 

000060 



CMPB 

#60,R3 



CR 

1223 

002992 

0014)5 




BEQ 

SELRM2 

1 SET RMO=NONSTOP 



12 29 

002999 

122745 

000061 



CMPB 

#61,R3 



CR 

1225 

002950 

001003 




BNE 

SELRMI 




1226 

002952 

052704 

000001 



BIS 

81» R 4 

1 SET RMO-START-STOP 



1227 

002456 

00040 ? 




BR 

SCLRM2 




1228 

002460 

122705 

000062 


selrmi: 

CMPB 

#62,R3 



CR 

1229 

002964 

001402 




BEQ 

• +6 




1230 

002466 

0001^7 

002024 



JMP 

SELT3 




1231 

002472 

052704 

000002 



BIS 

#2«R4 

1 SET RMO=RANDOM 



1232 

0024 76 

104430 



SELRM21 

SP3 





1233 





1 HAVE ALL PARAMETERS 




1234 

002500 

012702 

012203 



MOV 

#MSG6«R2 




1235 

002504 

104404 




TOP 


iprint «ok m 



1236 

002506 

104400 




WAITKY 


1 WAIT FOR CARRIAGE RET 

RN 


1237 

002510 

122703 

000015 



CMPB 

#15,R3 



CR 

1238 

002514 

001402 




BEQ 

.46 




1239 

002516 

0001^7 

002024 



JMP 

SELT3 




129 0 

002522 

1057 /7 

175512 



TSTB 

S)TPS 




1241 

002526 

1003/5 




HPL 

.-4 




1242 

002530 

0127/7 

000012 

175504 


MOV 

#12,S>TPB 




12H3 

002536 

1057/7 

1754 76 



TSTB 

oJTPS 




1249 

002542 

100375 




BPL 

.-4 




1245 

002549 

0127/7 

000040 

175470 


MOV 

#40,aTPB 




1246 

002552 

0104^0 




MOV 

R4, <0M> 




1247 

002559 

00523/ 

001110 



INC 

NUMTST 

1*1 TO TEST COUNT 



1248 

002560 

02273/ 

000012 

001110 


CMP 

#10..NUMTST 

1 EQUAL TO TEN YET 



1249 

002566 

0 014 0 2 




HCQ 

SELOKI 

I YES 



1250 

002570 

0 0 0 1 3 7 

001766 



JMP 

SELT1 

INO,ACCEPT NEXT SET 



1251 

002574 

012702 

012160 


sEloki: 

MOV 

#MSG5,R2 




1252 

0 G 2 6 0 0 

1044 04 




TOP 


IPRINT *MAX TESTS SELE 

TED* 


1253 





iEXECUTE SELECTED TEST 




1254 

002602 

005037 

000356 


execut: 

CLR 

MODES 

UNITIALIZE MOOES 














. 
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1255 

002606 

012737 

001120 

001114 


MOV 

4TSTTBL.TSTEX 




1256 

002614 

017737 

176274 

001112 

exec: 

MOV 

GTSTEX.PARAM 

IGLT TEST PARAHS 



1257 

002622 

0137O0 

001112 


execi: 

MOV 

PARAM.R0 




1258 

002626 

042700 

007777 



BIC 

#7777«RO 




1259 

002632 

005037 

001146 



CLR 

PGMODE 

1 ENABLE PATTERN SENERA 

ION 


1260 

002636 

010037 

001116 



MOV 

RO.TEST 




1261 

002642 

001460 




OEQ 

TESTO 




1262 

002644 

022700 

010000 



CMP 

tflQnOO.RO 




1263 

002650 

001500 




HE Q 

TESTl 




1264 

002652 

022700 

020000 



CMP 

420n00.RO 

■ - 



1265 

002656 

00150 1 




BCG 

T E S T 2 




1266 

002660 

022700 

030000 



CMP 

«30n00»R0 




1267 

002664 

00154 4 




6EQ 

TEST 3 




1268 

002666 

022700 

040000 



CMP 

A4onOQ.RO 




1269 

002672 

0014 0 2 




BEG 

.46 




1270 

002674 

000137 

003526 



JMP 

TESTS 




1271 

002700 

000137 

003206 



JMP 

TEST4 




1272 





iRETURN 

HERE AFTER COMPLETION OF TEST 



1273 

002704 

012702 

013310 


oone j 

MOV 

HMS630.R2 




12 74 

002710 

10440 4 




TOP 





1275 

002712 

0060'7 

175314 



RQR 

GSR 

IIS SWo-1 TO REPEAT TE 

T WITH ALL PATTERNS 


1276 

002716 

10 3013 




BCC 

DONE 1 

INO 



1277 

002720 

013700 

001112 



MOV 

PARAM.RO 




1278 

002724 

0427u0 

170777 



BIC 

817n777.R0 




1279 

002730 

022700 

007000 



CMP 

47000.R0 

1 REACHED PAT 7 



1280 

002734 

0 0 14 U 4 




BEQ 

DONE 1 

1 YES 



1261 

002736 

0627 37 

Q01000 

001112 


ADO 

X1000.PARAM 

INO* +1 TO PAT 



12 62 

002744 

000726 




BR 

EXEC 1 

1 REPEAT 



1283 

002746 

005337 

001110 


ooneii 

DEC 

NUMTST 




1284 

002752 

001010 




RIME 

DO AON 




1285 

002754 

013702 

000042 



MOV 

GM42.R2 




1286 

002760 

0 01 0 0 i 




RNE 

ENOAOR 



v " 

1287 

002762 

oooooo 




HALT 


IFINISHEO all tests 



1288 

002764 

004712 



ENOAOR1 

JSR 

PC,<2> 




1289 

002766 

GOO? 4 0 




240 


1 ********nop******** 



1290 

002770 

00024 0 




240 


I********NOP******** 



1291 

002772 

000240 




240 


1 ********NOP******** 



1292 

0 0 2 l 74 

06? 73 7 

000002 

001114 

00A6N1 

AOD 

#2.TSTEX 




1293 

1294 

003002 

000704 



ITCSTO 

HR 

EXEC 

too NEXT TEST 



1295 





1 WRITE 

ONE RECORD# CHANGE DRIVES. GO TO EOT 



1296 

003004 

052737 

000002 

000356 

testo: 

BIS 

#2.MOOES 

IEXIT WRITE EVERY RECO 

D* NO REAP PASS 


1297 

003012 

104420 



T01ERTS 

CLRALL 


1 CLEAR ERROR COUNTERS 

NO REWIND 

CR 

1298 

003014 

104410 



to: 

RSFDRV 


IRESET DRIVE SELECTION 

TO LOWEST NUMBER 


1299 

003016 

104414 



toa: 

MVCTRS 


IRESTORE DRIVE COUNTER 



1300 

003020 

032737 

000040 

000356 


BIT 

#40.MODES 

IIS THIS DRIVE AT EOT? 



1301 

003026 

001002 




BNE 

TOB 

1 YES. SKIP WRITE 



1302 

003030 

1 0 4 4 u 2 




WRIT IT 


1 WRITE 



1303 

003032 

1044U6 




SVCTRS 


ISAVE DRIVE COUNTERS 


S 

1304 

003034 

104422 



tob: 

CHGORV 


I ANY MORE DRIVES SELEC 

ED? 


1305 

Q03036 

000 /67 




BR 

TOA 

1 YES 



1306 

003040 

004737 

004400 



JSR 

PC.ALLEOT 

lAHE all DRIVES at EOT 



1307 

003044 

000765 




BR 

TO 

INO 



1308 

1309 

003046 

000137 

002704 


ITEST1 

JMP 

DONE 

IYLS. EXIT 



1310 





tWRITE 

RECORD I 

LENGTH SEQUENCE. GO TO NEXT DRIVE. C 

NTINUE TO EOT ON ALL 

DRIVE • 

1311 

003052 

052737 

QOOOOl 

000356 

tEsti: 

BIS 

81 .MOOES 

IEXIT WRITE AFTER RLS. 

' 

NO READ PASS 
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1312 

003060 

000754 




BR 

T01ENT 



CR 

1313 





ITEST2 






1314 





IWRITE 

A RECORD LENGTH SEQUENCE t CHANGE DRIVES 



1315 





ibackspace, change orives. 

READ, CHANGE ORIVES, CO 

TXNUE TO EOT ON 

ALL DRIVES 

1316 

003062 

05273 7 

000005 

000356 

TEST2J 

BIS 

#5,MODES 

IEXIT WRITE AFTER RLS, 

DO READ PASS 


1317 

003070 

104420 



T23ENT 

: clrall 


ICLEAR ERROR COUNTERS 

NO REWINU 

CR 

13 1 ft 

003072 

1044 x 0 



T2j 

RSFORV 


1 SET DRIVE SELECTION T 

LOWEST NUMBER 


1319 

003074 

104414 



t2a: 

MVCTKS 


IKESTORE DRIVE COUNTER 



1320 

003076 

032737 

000040 

000356 


BIT 

#40.MODES 

IIS THIS ORIVE AT EOTV 



1321 

003104 

001002 




BNE 

T 2D 

IYLS, SKIP WRITE 



1322 

003106 

104402 




WftITI T 


IWRITE 



1323 

003110 

1044U £ 




SVCTKS 


•save drive counters 



1324 

003112 

104422 



T2B * 

chgdkv 


•anymore drives select 

D? 


1325 

003114 

000707 




HR 

T2A 

• yes 



1326 

003116 

1C4414 



T2C 1 

MVCTRS 


IRESTQRE DRIVE COUNTER 



1327 

003120 

032737 

000020 

000356 


BIT 

#20.MODES 

IIS THIS READ AT EOT? 



132ft 

003126 

001 00 3 




BNE 

T20 

•YES, SKIP BACKSPACE 



1329 

003130 

004757 

010540 



JSR 

PC .GOBKWO 

IBACKSPACE 



1330 

003134 

104406 




SVCTRS 


ISAVE DRIVE COUNTERS 


CR 

1331 

003136 

104 42 2 



T2D: 

CHGDRV 


1 ANY MOKE DRIVES 3ELEC 

ED? 

CR 

1332 

003140 

000766 




BR 

T2C 

1 YES 



1333 

003142 

1C 4 4 1 4 



T2EI 

MVCTRS 


•RESTORE DRIVE COUNTER 



1334 

003144 

032737 

000020 

000356 


BIT 

#20,MOOES 

IIS THIS READ AT EOT 



1335 

003152 

001001 




BNE 

T2F 

IYLS, SKIP READ 



1336 

003154 

104 4*4 




RE ADIT 


1READ 



1337 

003156 

104406 



T2FI 

SVCTRS 


ISAVE DRIVE COUNTERS 



13 3ft 

003160 

104422 




CHGDRV 


•anymore drives select 

0? 


1339 

003162 

000767 




BR 

T2E 

1 YES 



1340 

003164 

004757 

004400 



JSR 

pc.alleot 

1 ARE ALL DRIVES AT EOT 



1341 

003170 

000740 




BR 

T 2 

1 NO 



1342 

003172 

000157 

002704 



JMP 

DONE 

•YES EXIT 



1343 






1 





1344 






1 





134 5 





1TEST3 






1346 





1WRITE 

one record* change 

DRIVES, BACKSPACE, ChANG 

ORIVES, READ, 

Change drxv 8 

1347 

003176 

052737 

000006 

000356 

tests: 

BIS 

#6,MODES 

IEXIT WRITE CVEftY RECO 

0, 00 READ PASS 


134ft 

003204 

000731 




BR 

T23ENT 



CR 

1349 





ITEST4 






1350 





IWRITE 

Record* 

CHANGE DRIVES, REPEAT FOR RECORD LE 

GTH SEQUENCE 


1351 





|REAO RECORD, CHANGE DRIVES* REPEAT FOR RLS 



1352 

003206 

052737 

000006 

000356 

TEST4: 

bis 

#6,MOOES 

IEXIT WRITE EVERY RECO 

D, DO REAO PASS 


1353 

003214 

032777 

000014 

175672 


BIT 

#14 ,a)TSTEX 




1354 

003222 

001006 




BNE 

T 4 




1355 

003224 

042737 

000007 

000356 


BIC 

#7,MODES 




1356 

003232 

052737 

000005 

000356 


ms 

#5»MODES 

IEXIT WRITE AFTER RLS, 

DO REAO PASS 


1357 

003240 

104 4*0 



T4: 

CLRALL 


ICLEAR ERROR COUNTERS 

ND REWIND 


1 35 A 

003242 

104410 



t4a: 

RSFORV 


1 SET DRIVE SELECTION T 

LOWEST NUMBER 


1359 

003244 

104414 



T4B1 

MVCTRS 


1RLS I ORE DRIVE COUNTER 



1360 

003246 

013737 

000336 

000340 


MOV 

RECORD,WRRECR1SAVE RECORD 


• 

1361 

003254 

104406 




SVCTRS 


ISAVE DRIVE COUNTERS 



1362 

003256 

104422 




CHGDRV 


•ANYMORE DRIVES SELECT 

0? 

, ■ 

1 363 

003260 

0007 / 1 




BR 

T4B 

1 YES 



1364 

003262 

04273 7 

000010 

000356 


BIC 

#10,MOOES 

1 INDICATE RLS END 



1365 

003270 

104410 



T4CI 

RSFORV 





1366 

003272 

10441 4 



t4d: 

MVCTRS 


IRESTORE DRIVE COUNTER 



1367 

003274 

032737 

000040 

000356 


BIT 

#40,MODES 

IIS ORIVE AT EOT 



1368 

003302 

OOJ O10 




BNE 

T4E 

IYLS, SKIP WRITE 
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1369 

003304 

01373/ 

000340 

000274 


MOV 

WRRECK,SVK£CRtSAVE START OF RES 


1370 

003312 

104402 




WRJTIT 


IWRITE 


1371 

003314 

01373/ 

000274 

000340 


MOV 

SVRECR.WRRECRIRESTORE START OF RES 


1372 

003322 

104406 




SVCTRS 


ISAVE DRIVE COUNTERS 


1373 

003324 

1044*2 



T4E J 

CHGDRV 


1ANYMORE DRIVES SELECT 

D? 

1374 

003326 

000761 




B a 

T4D 

1 YLS 


1375 

003330 

032737 

000010 

000356 


BIT 

#10,MODES 

1 ARE WE AT END OF RLS 


1376 

003336 

001007 




BNE 

T4G 

1 YES 


1377 

003340 

104414 



T4F1 

MVCTRS 


1RLSTORE DRIVE COUNTER 


1370 

003342 

032757 

000040 

000356 


BIT 

#40,MOOES 

1 ARE WE AT EOT? 


1379 

003350 

001747 




BEQ 

T4C 

I NO 


1360 

003352 

104422 




CHGORV 


1 ANYMORE DRIVES SELECT 

0? 

1361 

003354 

0007/1 




BR 

T4F 

1 YLS 


1362 

003356 

104410 



T4GI 

RSFDRV 


1 SET DRIVE SELECTION T 

LOWEST NUMBER 

1303 

003360 

104414 



t4m: 

MVCTRS 


lRESTORE DRIVE COUNTER 


1364 

003362 

032 /^7 

000020 

000366 


BIT 

#20,MODES 

US THIS DRIVE AT EOT? 


1365 

003370 

0 010 0 2 




BNE 

T4J 

IYtS, SKIP BACKSPACE 


1306 

003372 

004737 

01054 0 



JSR 

PC , GOOKWD 

tBACKSPACE 


1367 

003376 

104 406 



T4j: 

SVCTRS 


ISAVE DRIVE COUNTERS 


1368 

003400 

1044*2 




CHGORV 


1 ANY MORE DRIVES SELEC 

ED? 

13 OS 

003402 

0 0 0 7 *• b 




BR 

T4H 

I YLS 


1390 

003404 

104410 



T4KJ 

RSrOHV 


ISET DRIVE SELECTION T 

LOWEST NUMBER 

1391 

003406 

104414 



T4LI 

MVCTRS 


lRESTORE DRIVE COUNTER 


1392 

003410 

032737 

000020 

000356 


BIT 

#20,MODES 

1 IS THIS READ AT COT? 


1393 

0 0 3**16 

0010*5 




ONE 

T4N 

I YLS, SKIP READ 


1394 

003420 

023737 

000342 

000336 


CMP 

LASRCR,RECORO t HAVE WE READ EAST REC 

RD WRITTEN? 

1395 

003426 

0 014 - 1 




BEQ 

T4N 

I YLS 


1396 

003430 

01373/ 

000342 

000274 


MOV 

LASRCR.SVRECRtSAVE LAST RECORD 


1397 

003436 

0327 J 7 

000003 

001112 


BIT 

#3.PARAM 

US READ MODE NONSTOP? 


1390 

003444 

003 405 




BEQ 

T4M 

1 YES 


1399 

003446 

0 3 3 7 3 7 

000336 

000342 


MOV 

RECORD,EASRCR 


1400 

003454 

00523 7 

000342 



INC 

LASRCR 

N1 TO LAST RECORD WRJ 

TEN 

1401 

003460 

104 4*4 



T4M* 

READIT 


IREAD 


1402 

003462 

013/37 

000274 

000342 


MOV 

SVRECR*EASHCR«RLST0RE LAST RLCORO W 

ITTEN 

1403 

0 0 34 70 

104416 




SVCTRS 


ISAVE DRIVE COUNTERS 


14 04 

003472 

1 0 4 4 1 2 



T4N t 

CH6DRV 


I ANY MORE DRIVES SELECT 

0? 

19 05 

003474 

0 0 0 7‘* 4 




BR 

T4L 

1 YLS 


1406 

003476 

1044 4 4 



T4PI 

MVCTNS 


IKESTORE DRIVE COUNTER 


1407 

003500 

023737 

000342 

000336 


CMP 

LASRCRiRECOKDIARC WE AT END OF RLS? 


14 0 0 

003506 

001 336 




BNE 

T4K 

INC) 


1409 

003510 

l(m«.2 




CMGDRV 


iANYMORE DRIVES SELECT 

0? 

1410 

003512 

0 0 0 7/1 




OR 

T4P 

1 YES 


1411 

003514 

0047^7 

004400 



JSR 

PC • ALLEOT 

1 ARE ALL ORJVES AT EOT 


1412 

003520 

000630 




BR 

T4 A 

INO 


1413 

003522 

0001 37 

002704 



JMP 

DONE 

i yes,exit 


1414 





1 





1415 





f 





1416 





1 TESTS 





1417 





iREAD only 




1 4 1 ri 





1 RANDOM 

PATTERN INVALID EXCEPT FOR SPECIFIC CASES 


1419 

003526 

052737 

000002 

000356 

tests: 

BIS 

#2,MODES 



1420 

003534 

1044*0 




CLRALL 


ICLEAR ERROR COUNTERS 

NO REWIND 

1421 

003536 

012737 

177777 

004004 

T5 t 

MOV 

#** 1, T5FL AG 

TENABLE exit from WRIT 

ROUTINE 

1422 

003544 

1044 0 2 




WRITIT 


1 ENTER WRITE ONLY TO I 

ITIALI2E RECORO SEQUENCE 

1423 

003546 

032737 

OOCOIO 

000356 


BIT 

#10,MOOES 

1 ARE WE AT END OF RLS? 


1424 

003554 

0 01462 




BEQ 

T5A 

1 YES 


1425 

003556 

004737 

005206 



JSR 

PC , TESINC 

ISLE IF RECORD LENGTH 

MOULD BE CMANGEQ 
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1426 

003562 

01373/ 

000336 

004006 

TSA5 

MOV 

RECOR0*T51NC 




1427 

003570 

00503/ 

000336 



CLR 

RECORD 




1426 

003574 

052737 

000010 

000356 

t5b: 

BIS 

410,MOOES 

1 INDICATE AT START OF 

LS 


1429 

003602 

104410 




RSFORV 


1 SET DRIVE SELECTION T 

LOWEST 

DRIVE NUMBER 

1430 

003604 

104414 



t5c: 

MVCTRS 


IRESTORE DRIVE COUNTER 



1431 

003606 

03273/ 

000020 

000356 


BIT 

420«MODES 

IIS THIS DRIVE AT EOT 



1432 

003614 

00100 7 




BNE 

T 50 

1 YES 



1433 

003616 

013737 

000336 

000342 


MOV 

record,lasrcr 



1434 

003624 

06373? 

004006 

000342 


ADD 

T5INC,LASKCR 

1 CURRENT RECORD ♦ SEQU 

NCE LENGTH 

1435 

003632 

104406 




SVCTRS 


ISAVE DRIVE COUNTERS 



1436 

003634 

1044*2 



T501 

CMGORV 


t ANYMORE DRIVES? 



1437 

003636 

000702 




BR 

T5C 

1 YES 



1436 

0II 3 6 4 0 

1044 AO 




RSFDRV 


1 SET DRIVE SELECTION T 

LOWEST 

NUMBER 

1439 

003642 

104414 



T5EJ 

MVCTRS 


iRtSIORE DRIVE COUNTER 



1440 

003644 

03?737 

000020 

000356 


HIT 

420,MOOES 

IIS THIS DRIVE AT EuT? 



1441 

003652 

0010*1 




BNE 

T5G 

1 YES 



1442 

003654 

013737 

000342 

000274 


MOV 

lasrcr*svrecrisave end of rls recor 

S 


1443 

003662 

032737 

000003 

001112 


BIT 

43,PARAM 

IIS read mode nonstop 



1444 

003670 

0014 0 5 




BEG 

T5F 

SYES GO TO END RLS 



1445 

00.3672 

01373? 

000336 

00034? 


MOV 

RECORD,LASRCR1 NEXT TO BE READ 



1446 

003700 

00523 7 

000342 



INC 

LASRCR 

IU EXIT READ AFTER ON 

RECORD 


1447 

003704 

1044 24 



T5F1 

READIT 


1 HEAD 



14 4 A 

00370b 

013737 

000274 

000342 


MOV 

SVRECR,LASRCRlRtSTOhE END RtCOD 



1449 

003714 

1 Q4406 




SVCTRS 


ISAVE DRIVE COUNTERS 



1450 

003716 

1044*2 



T5SI 

CHGORV 


IANY MORE DRIVES? 



1451 

003720 

0 0075 0 




BR 

T5E 

1 YES 



1452 

003722 

004737 

004400 



JSR 

PC,ALLEOT 

IALL AT EOT? 



1453 

003726 

000402 




FIR 

T5H 

INO 



14 54 

003/30 

00013/ 

002704 



JMP 

DONE 

I YES EXIT 



1455 

003734 

104410 



T5H! 

RSFDRV 


iset drive selection T 

LOWEST 

NUMBER 

1456 

003736 

104414 



T5j: 

MVCTRS 


IRESTORE DRIVE COUNTER 



14 57 

003740 

023737 

000336 

000342 


CMP 

RECORD,LASRCRIARE WE AT ENO OF RLS? 



1456 

003746 

0 010 0 3 




BNE 

T5K 

INO 



1459 

003750 

04273/ 

000010 

000356 


BIC 

410,MODES 

1 YES, 



1460 

003756 

1044*2 



T5KI 

CHGDKV 


1 ANYMORE DRIVES SELECT 

0? 


1461 

003760 

0 U 0 7 & 6 




BR 

T5J 

1 YES 



1*62 

003/62 

0327^7 

000010 

000356 


BIT 

410,MODES 

1 AT END OF RLS? 



1463 

003770 

0013*4 




BNE 

T5E 

INO 



1464 

003/72 

0047 37 

004400 



JSR 

PC«ALLEOT 

IALL DRIVES AT EOT? 



1465 

003776 

00065/ 




BR 

T5 

INO 



1466 

004000 

0001 37 

002704 



JMP 

DONE 

lYtS, EXIT 



1467 

004004 

OOQOOQ 



tsflag: 

0 





1466 

004006 

onoooo 



t&inc s 

0 





1469 





1 SAVE DRiSAVE DRIVE RECORQ 

AND ERROR COUNTERS 



1470 

004010 

00473 7 

004044 


SVCTRS 

JSR 

PC,CTRDEX 




1471 

004 C 14 

012 0*1 



SVC1S 

MOV 

(0)+,(l)+ 




1472 

004016 

0 2 2 7 0 0 

000360 



CMP 

4DRVAORtRO 




1473 

004022 

0013/4 




BNE 

SVCl 




1474 

004024 

0002U7 




RTS 

PC 




14 75 





IRESET 

DRIVE COUNTERS BACK 

INTO PROGRAM 



1476 

004026 

00473/ 

004044 


mvctr: 

JSR 

PC,CTRDEX 




14 7 7 

0 04 0 32 

0121*0 



mvi : 

MOV 





1476 

004034 

0227^0 

000360 



CMP 

»DRVADR,R0 




14 79 

004040 

0013/4 




BNE 

MVI 




1460 

004042 

000207 




RTS 

PC 




1461 





i set up 

POINTERS FOR MOVE AND SAVE COUNTERS 



1462 

004044 

0I27U0 

000314 


ctrdex; 

MOV 

4WRCHEK,R0 





*1 
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1483 

004050 

012701 

000360 



MOV 

4UHVAUR «R1 




1464 

004034 

063701 

000302 



ADD 

CDRIVE«R1 




1485 

004060 

063701 

000302 



ADD 

CDKIVE,R1 




I486 

004064 

011 101 




MOV 

<2R 1 , R1 




1487 

004066 

000207 




RTS 

PC 




1488 





iCLtAR 

ALL DRIVE COUNTERS 




1469 

004070 

104410 



clral; 

RSFORV 





1490 

004072 

004737 

004342 


clri: 

JSK 

PC,REWIND 




1491 

004076 

004737 

004506 



J3R 

PC,CLRT8L 




1492 

004102 

1C4406 




SVCTRS 





1493 

004104 

1044^2 




chgdrv 





1494 

004106 

0007/1 




OR 

CLRl 



... .. 

1495 

004110 

052737 

000010 

000356 


01$ 

410,MODES 

1 AT END OF RLS 



1496 

004116 

005037 

004004 



CLR 

T5FIAG 




1497 

004122 

000207 




RTS 

PC 




1498 





iKESET 

DRIVE SELECTION TO LOWEST NUMBER 



1499 

004124 

00503 7 

000302 


RSFDR: 

CLR 

CDRIVE 

1 ST ART WITH DRIVE 0 



150 0 

004130 

012737 

000200 

000300 


MOV 

#2G0 «CORVBT 

IBIT FOR DRIVE 0 



1501 

004136 

0 337 5 7 

000272 

000300 

RSFl: 

BIT 

MSBlTSiCDRVBT tIS DRIVE SELECTED? 



1502 

GC4144 

001046 




ONE 

RSF 2 

1 YES 



1503 

004146 

005237 

000302 



INC 

CDRIVE 

INO 4 1 TO DRIVE 



1504 

004152 

000241 




CL C 





1505 

004154 

006037 

000300 



ROR 

COKVBT 

IROTATE DRIVE BIT 



1506 

004160 

000706 




OR 

RSFl 

ikepeat 



1507 

004162 

013737 

000302 

000276 

RSF2I 

MOV 

CDRIVE,COMANQ 




1508 

004170 

0 0 0 3-57 

000276 



SWAB 

COMANO 




1509 

004174 

033757 

001150 

000300 


BIT 

STFl. GS,CDRVBf 1 IS DRIVE 7 TRACK? 



1510 

004202 

001013 




ONE 

RSF 3 

1 YES 



1511 

004204 

052737 

060000 

000276 


BIS 

460000,COMANQI8QO OpI, 9 TRACK 



1512 

004212 

0327/7 

001000 

174012 


BIT 

41000,3SR 

ITEST PARITY SELECTED 


1513 

004220 

001403 




BEQ 

.410 

1 OOD 



1514 

004222 

05273 7 

004000 

000276 


BIS 

44000,COMANO 

1 EVEN 



1515 

004230 

0 0 0 20 7 




RTS 

PC 




1516 

004232 

3 05737 

001112 


RSF31 

TSTB 

PARAM 

1 SET APPROPRIATE 7 

TRA 

K density bits 

1517 

004236 

100003 




DPL 

.410 




1518 

004240 

052737 

040000 

000276 


BIS 

440000,COMAND 



1519 

004246 

0327 37 

000100 

00111? 


BIT 

4100,PARAM 




1520 

004254 

001403 




BEG 

.410 




1521 

004256 

052757 

020000 

000276 


BIS 

420000.COMANO 



1522 

004264 

0327 37 

000400 

001112 


BIT 

4400,PARAM 

ITEST PARITY SELECTED 


1523 

004272 

0010 0 3 




ONE 

.410 

1 ODD 



1524 

004274 

052757 

004000 

000276 


BIS 

44000,COMANO 

I EVEN 



1525 

004302 

00020 7 




RTS 

PC 




1526 





1 SELECT 

NEXT DRIVE IN SEQUENCE 



152 7 





141 WORD TO LX IT ADDRESS IF 

LAST DRIVE TESTED 



1528 

004304 

005257 

000302 


CM6DRJ 

INC 

CDRIVE 

141 TO DRIVE NUMBER 



1529 

004310 

00024 1 




CLC 





1530 

004312 

006057 

000300 



ROR 

CDRvRT 

IMOVE MASK BIT OVER 

1 

LACE 

1531 

004316 

001004 




BNE 

CHGl 

t BRANCH IF MORE DRIVES 

SELECTED 

1532 

004320 

104410 




RSFORV 


IRESET DRIVE SELECT 

TO 

LOWEST NUMBER 

1533 

004322 

062716 

000002 



ADD 

42 ,f?SP 

142 TO SKIP OVER FIRST 

EXIT 

1534 

004326 

0 0 0 2 0 7 




RTS 

PC 




1535 

004330 

033757 

000300 

000272 

CHGl l 

BIT 

CDRVBT,MSDITS 




1536 

004336 

001762 




BEQ 

CHGDR 




1537 

004340 

0 00 710 




BR 

RSF? 




1538 





1 REWIND 

DRIVE 

TO DOT 




1539 

004342 

1057 /7 

173650 


rewind: 

TSTB 

aMTC 







ca 

CR 

ca 

ca 

ca 

CR 

ca 

ca 
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1540 

004346 

100 37 5 




BPL 

.-4 

(WAIT FOR CONTROL UNIT 


1541 

004350 

013777 

000276 

173640 


MOV 

COMANO*SMTC 

ISELECT DRIVE 


1542 

004356 

0060 1 7 

173632 



ROR 

SMTS 



1543 

004362 

103375 




BCC 

• -4 

(WAIT FOR TU READY 


1544 

004364 

0527 7 7 

000016 

173624 


81$ 

# 16 ,aMTC 

(REW1NO 


1545 

004372 

004737 

004532 



jSR 

PC»60WAIT 



1546 

004376 

000207 




RTS 

PC 

lExlT 


1547 





(ARE ALL DRIVES AT ENO OF 

TAPE 


1548 

004400 

1044*0 



alleot: 

RSFDRV 




1549 

004402 

104414 



ALLl * 

MVCTRS 




155 0 

004404 

032737 

000060 

000356 


BIT 

#60,MODES 

1 A f EOT? 


1551 

004412 

001403 




BEQ 

ALLEOS 

(NO 


1552 

0044 14 

1044^2 




CHGOKV 


(DONE ALL DRIVES? 


1553 

004416 

0007/1 




BH 

ALLl 

INO 


1554 

004420 

0004c 7 




HR 

ALL3 



1555 

0 U 4 4 22 

0327 7 7 

000400 

173602 

alleos: 

BIT 

#400,3SR 

(TEST SWITCH 6 TO EXIT 

AT END OF SEQUENCE 

1556 

C 0 4 4 30 

0 014 2 5 




BEG 

ALL? 

(NO. GO TO EOT 


1557 

004432 

032737 

000010 

000356 


BIT 

#10.MODES 

(AT END OF SEQUENCE 


1556 

004440 

00142J 




BEO 

ALL2 

INO» EXIT, DON* T DUMP 

RROft COUNTERS 


1559 (DUMP CHROR COUNTERS ON ALL ORIVES 


156 0 

004442 

1044*0 



CTkOMR! 

: Rsrrmv 



1561 

0 0 u 4 4 4 

104414 




MVCTRS 



1562 

004446 

005737 

004004 



TST 

T5FI.AG 


1563 

004452 

001006 




BNE 

CTROl 

(DUMP REAO ONLY 

1564 

004454 

004737 

005542 



JSR 

PC,endti 


156 5 

004460 

032737 

000004 

000356 


BIT 

1*4 , MOOES 

(READ PASS SELECTED? 

1566 

004466 

001402 




BEQ 

COMFNO 

(NO 

1567 

004470 

004737 

010110 


CTRDi: 

JSR 

PC * RNOTP1 


1568 

004474 

104 4*2 



cdmendj 

! CH60RV 


(DONE ALL ORIVES 

1569 

004476 

000762 




B rt 

CTR0MP42 

INO 

1570 

004500 

062716 

000002 


ALL 3 S 

ADO 

#2,(6) 

(INCREMENT RETURN POIN 

1571 

004504 

0002U 7 



ALL2* 

RIS 

PC 


1572 





(CLEAR 

READ AND WRITE TABLES 

1573 

004506 

012700 

000314 


CLRTBL * 

! MOV 

#WRChEK«R0 


1574 

004512 

0 0 50*0 



CLRTl; 

CLR 

(0) + 


1575 

004514 

0200^ 7 

000356 



CMP 

RO , IIMODES 


1576 

004520 

0013/4 




BNE 

CLRT1 


15/7 

004522 

0427 *7 

000070 

000356 


DIC 

#70,MODES 


1578 

0 (J 4 5 3 0 

00020 7 




RTS 

PC 


1579 





(INTERRUPT ENABLE, GO, WAIT 

FOR INTERRUPT 

158 0 

004532 

0127/7 

000200 

173470 

gowait: 

; mov 

#2oo,ace 

(SET PRIORITY LEVEL 4 

1581 

004540 

0127 n 

004566 

173506 


MOV 

#GWl»JMT V 

(SET INTERRUPT RETURN 

1582 

004546 

0527/7 

000101 

173442 


BIS 

#101 * SMTC 

(INTERRUPT ENABLE, GO 

1583 

004554 

OUOliOl 




WAIT 


(WAIT FOR INTERRUPT 

1584 

004556 

01*777 

000340 

173444 


, MOV 

#34o#acc 

(RESTORE PRIORITY LEVE 


1585 004564 00G2U7 RTS PC lEXIT 

1586 004566 0000^2 GW1* KII iHtTURN FROM INTERRUPT 

1587 (WRITE RECORD SECTION 

1588 004570 005737 000336 WRITI* TST RECORD I IS THIS THE FIRST KEC RO * 

1589 004574 0010-1 ONE NOIMCR (NO, SKIP SET UR OF RE ORO LENGTH AND BLOCK INCrtE EN 

1590 004576 013737 000244 000266 MOV MAXLEN,STRLEN 

1591 004604 012737 177774 000310 MOV #-4.,QLKINC 

1592 004612 032737 000020 001112 HIT #20,PARAM 

1593 004620 001006 BNE W1 

1594 004622 013737 000246 000266 MOV MINlEN•STRLEN 

1595 004650 012737 000004 000310 MOV M4..BLK1NC 

1596 004636 013737 000266 000352 Ult MOV STRlEN*WRTLEN 

m 
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1597 

004644 

032747 

000040 

001112 


BIT 

44G.PARAM 

1 DOES RECOHO LENGTH CH 

NGE? 


1598 

004652 

001002 




BNE 

NOINCR 

1 YES 



1599 

004654 

005047 

000310 



CLR 

blkinc 

(NO 



1600 

004660 

013747 

000336 

000340 

noincr: 

MOV 

RECORD,WRRECR 




1601 

004666 

0137 / 7 

000276 

173322 


MOV 

C0MAN0,3MTC 

1SELECT UNIT 



1602 

004674 

105777 

173316 



TSTB 

oiMTC 




1603 

004700 

100375 




UPL 

.-4 

(WAIT FOR ClJ READY 



1604 

004702 

10*1442 




GENPT 


t GENERATE TEST PATTERN 



1605 

004704 

005747 

004C04 


W3 2 

TST 

T5FLAG 




1606 

004710 

001401 




BEG 

. + 4 




1607 

004712 

000207 




RTS 

PC 

1 EXIT WRITE ROUTINE IF 

TEST 

5 

1608 

004 714 

00503 7 

000306 



CLR 

WRPASS 




1609 

004720 

0060 ^7 

173270 


STRTOP: 

NOR 

q)MTS 

IWAIT FOR TU READY 



1610 

004724 

10 3 3/4 




OCC 

*-4 




1611 

004726 

01377 7 

000352 

173264 

nonstp: 

MOV 

WRTL EN«3BC 

1 SET BYTE COUNT 



1612 

004734 

0 0 54 f 7 

173260 



NEG 

SBC 




1613 

004740 

0137/7 

000250 

173254 


MOV 

wbut« acA 

1 SET CURRENT AODRESS 



1614 

00 4 74 6 

0527 // 

006004 

173242 


BIS 

#4,2-MTC 

IWRITE 



1615 

004754 

00474 / 

004532 



JSR 

PC • GOWAIT 

1 INTERRUPT ENABLE, 60, 

WAIT 

FOR DONE 

1616 





tRETURN 

HERE 

AFTER INTERRUPT 



1617 

004760 

01773 7 

173230 

000312 


MOV 

aMTS,STATRO 

ISAVE STATUS 



i 618 

004766 

0057/7 

173224 



TST 

3MTC 




1619 

004772 

10054 2 




BMI 

ERROR 

tHAVE ERROR FLAG, CHEC 

FOR 

EOT 

162 0 

004774 

005 73 7 

000306 



TST 

WRPASS 

1 WAS THIS A RECOVERY P 

SS 


1621 

005000 

0 014 10 




BCQ 

TSTSTP 

INO 



1622 

005002 

013700 

000306 



MOV 

WRPASS,RO 

1 YES 



1623 

0 0 5 U 0 6 

006 3 0 0 




ASL 

RO 




1624 

005010 

062700 

000314 



ADD 

tfWRCHEKrRO 




1625 

005014 

005210 




INC 

SRO 

*♦1 TO APPROPRIATE REC 

VERY 

PASS COUNTER 

1626 

005016 

005037 

000306 



CLR 

WRPASS 




1627 

005022 

03274 7 

000014 

001112 

tststp: 

BIT 

414,PARAM 

IIS WRITE MOOE NONSTOP 



1628 

005030 

0010*3 




BNE 

STOPOP 

INO 



1629 

005032 

005737 

000306 



TST 

WRPASS 

ITES 



1630 

005036 

001343 




BNE 

nonstp 




1631 

005040 

0047^7 

005206 



JSR 

pc,tesinc 

ICHANGE RECORD LENGTH 



1632 

005C44 

032737 

000001 

000356 


BIT 

«1,MOOES 

IEXIT AFTER RLS? 



1633 

005052 

001403 




BEQ 

wio 

INO 



16 34 

005054 

032737 

000010 

000356 


BIT 

N10.MOOES 

ITES, ARE WE AT END OF 

RLS? 


1635 

0 U 5 0 6 2 

0017*1 




BEQ 

NONSTP 

INO 



1636 

005064 

000207 




RTS 

PC 

ITES 



1637 

01)50 66 

03273/ 

000002 

000356 

Wlol 

BIT 

«2.MODES 

IEXIT EVERY RECORD? 



1638 

005074 

0U1714 




BEQ 

nonstp 

INO 



1639 

005076 

0002U7 




RTS 

PC 

1 YES 



1640 

005100 

032737 

000010 

001112 

STOPOPt 

BIT 

WIO,PARAM 

IIS WRITE MODE RANDOM? 



1641 

005106 

001414 




BEQ 

uu 

INO 



1642 











164 3 











1644 





IRANDOM 

stall 

OELAY 




1645 

005110 

004737 

007126 


RANSTP1 

JSR 

PC.RANGEN 




164 6 

005114 

052737 

177400 

007256 


BIS 

8177400,RANOOM 



164 7 

005122 

012704 

177470 


NANI J 

MOV 

#-200.,R4 

1 DELAY 1 MILLISECOND 



164 8 

005126 

005204 




INC 

R4 




1649 

005130 

0013/6 




BNE 

.-2 




1650 

005132 

005247 

007256 



INC 

RANDOM 




1651 

005136 

0013/1 




BNE 

RANI 




1652 

0 0 5 1 4 0 

0 0 5747 

000306 


Ull * 

TST 

WRPASS 




165 3 

005144 

001265 




BNE 

STRTOP 





CR 

CR 

CR 

CR 


CR 


■ -i 



P468 


MACRO 


1654 

005146 

004747 

005206 


1655 

005152 

032737 

000001 

000356 

1656 

005160 

0014U5 



1657 

005162 

032737 

000010 

000356 

165ft 

005170 

00163 3 



1659 

005172 

00020 7 



1660 

005174 

032737 

000002 

000356 

1661 

005202 

001646 



1662 

005204 

0 0 0 2 u 7 



1663 





1664 

005206 

005237 

000336 


1665 

005212 

042737 

000010 

000356 

1666 

005220 

00573 7 

000310 


1667 

005224 

0 014 a 6 



166ft 

005226 

063737 

000310 

000352 

1 o69 

005234 

02373 7 

000352 

000246 

1670 

005242 

0024U4 



1671 

005244 

023737 

000352 

000244 

1672 

005252 

003405 



1673 

005254 

013737 

0 0 026 6 

000352 

1674 

0 U 5 2 6 2 

105737 

000336 


1675 

005266 

00100 3 



1676 

005270 

052737 

000010 

000356 

1677 

0052 76 

00020 7 




1678 

1679 

1680 
16ftl 


1682 

005300 

032737 

175600 

000312 

1683 

005306 

001510 



1684 

005310 

005737 

000306 


1685 

005314 

001002 



1686 

005316 

005237 

000314 


1687 

005322 

0327/7 

020000 

172702 

168ft 

005330 

ooinio 



1609 

C05332 

0127 0 2 

012212 


1690 

005336 

3 04404 



1691 

005340 

0137 3/ 

000352 

000270 

1692 

005346 

004737 

010756 


1693 

005352 

0327/7 

000100 

172652 

1694 

005360 

0 01410 



1695 

005362 

005237 

000306 


1696 

005366 

022737 

000010 

000306 

1697 

005374 

0010*0 



169ft 

0 0 5 3 7 b 

005237 

000334 


1699 

005402 

032737 

000004 

000356 

1700 

005410 

001402 



1701 

0C5412 

004737 

010322 


17 02 

005+16 

0 0 5 0 3 7 

000306 


1703 

005422 

032737 

002000 

000312 

1704 

005430 

0 010 3 7 



1705 

005432 

000137 

005140 


17 06 

005436 

004737 

010032 


1707 

005442 

004 73 7 

010032 


1708 

005446 

0327/7 

000040 

172540 

17 09 

005454 

001402 



1710 

005456 

0 0 013 7 

004720 
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JSft PC«TfSINC 

BIT #1,MODES IEXIT AFTER RtS? 

BEQ U12 INO 

BIT #10,MOOES I YES, ARE WE AT END OF RLS? 

BEQ STRTOP I NO 

RTS PC I YES 

Ul2l BIT #?,MODES IEXIT EVERY RECORD? 

BEQ STRTOP INO 

RTS PC IYES 

isee if record length should BL CHaNGEO 
TESINCI INC RECORD 1+1 TO RECORD COUNT 

BIC #10,MOOES INOT ENO OF Rt.S UNLESS SET BELOW 

T ST OlKINC 

BEQ TSINC2 

ADD BLK]NC,WRTLEN 

CMP wRTlEN,MINLEN lRECORD LENGTH TOO SHO T? 

HLT RESfTL I YES,RE SET 

CMP gRTlEN,MAxLENI RECORD LENGTH TOO LON ? 

BLE TSINC2 INQ 

RESETl: MOV STRlEN,WRTLENIYLS, RESET 

TSINC2J TSTB RECORD 

BNE TSINC 3 INO 

BIS #10, MODES I INDICATE AT END OF RL 

TSINC3I RTS PC 

I HAVE AN ERROR FLAG DURING WRITE OPERATION 

I IF ERROR IS CAUSED BY END OF TAPE FLAG, DUMP WRIT ERROR COUNTERS 
I FOR ALL OTHER ERRORS: PRINT COMMAND AND STATUS R 6ISTERS AND RECORD NUMBER 
tIF RL AD PASS IS SrLECTCD, TRY TO RECOVER By wRITI G WITH XlRG, 

ERROR: BIT #175600,STATRDl AT EOT? 

BEQ ENDTAP IYES 

T ST WRPASS 

BNE ERRl iFIRbT ERROR? 

INC WRCHEK IYES, +1 TO WRITE ERRO 

CHRIS BIT #20000,3SR ITYPE ALE ERRORS? 

BNE TESWEC INO 

MOV #MSG7,R2 

TOP IPRINT •WRITE STATUS E ROR* 

MOV WRTLEN,LENGTH 

jSR PC,PRTS IPKINT STATUS, COMMAND RECORD* LENGTH 

TESRECJ BIT #100**SR lRECOVER STATISTICALLY SELECTED? 

BEQ TESHC1 INO 

INC WRPASS 1 + 1 TO WRITE RECOVER 

CMP tfft,,WRPASS I HAVE WE TRIED TO WRIT RECOVER 6 TIMES? 

BNE STHECl INO 

INC PERMBS IYES, + 1 TO PERMANENT ADSPOT? 

TESRCi: BIT #4, MODES IIS READ PASS SELECTED 

BEQ .+6 INO 

JSR PC, XRGKCC 

CLR WRPASS 

BIT #2000•ST ATRD 

ONE ENDTAP 

JMP Wll 

STRECU JSR PC , P ACK1 

JSR PC.PACK1 IBACKSPACE 2 RECORDS 

BIT #40,SMTS 

BEQ ,+6 

JMP STRTOP 
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1711 

005462 

012777 

177777 

172530 


MOV 

«*i,aoc 



1712 

005470 

013777 

000276 

172520 


MOV 

C0MaN0,3MTC 



1713 

005476 

0527/7 

ooooio 

172.512 


BIS 

aiO.SMTC 



1714 

005504 

004737 

004532 



JSR 

PC.GOWAIT 

ISPACE FORWARD 1 RECOR 


1715 

005510 

0427 / 7 

000016 

172500 


BIC 

K16.3MTC 



1716 

005516 

0527/7 

OOG 004 

172472 


BIS 

«4,H>MTC 

ICHANGE FROM SPACE TO 

RITE 

1717 

005524 

DOG 15 7 

004720 



JMP 

STRTOP 



1716 





t OR IVC 

IS AT EOT 



1719 

005530 

00523/ 

000336 


ENOTAP 

S INC 

RECORD 



1720 

005534 

05273 7 

000040 

000556 


BIS 

W40•MODES 

1 INDICATE DRIVE AT EOT 


1721 

005542 

012702 

013142 


ENDT15 

MOV 

MMSG24 *R2 



1722 

005546 

1044 U 4 





TOP 



1723 

0 U 5 5 5 0 

012702 

012240 



MOV 

AMSG8• R2 



1724 

005554 

1044 0 4 





TOP 



1725 





lOUMP ! 

WRITE ERRORS 



1726 

005556 

004737 

011020 


WRTOMP 

: JSR 

PC.PRTD 

1PRINT DRIVE, PATTERN, 

PARITY, DENSITY 

1727 

005562 

0137OD 

OC1112 



MOV 

PAftAM # R5 



172 6 

005566 

04270 5 

177763 



BIC 

4177763 *R5 



1729 

005372 

012702 

012675 



MOV 

»MSG14,R2 



1730 

005576 

022705 

000004 



CMP 

M 4 * R 5 



1731 

005602 

001002 




ONE 

• 46 



1 7 32 

005604 

012702 

012655 



MOV 

RMSG12 ,R2 



1733 

005610 

0 2 2 7 u 5 

OOOOIO 



CMP 

W10.R5 



1 7 34 

005614 

001002 




BUE 

• 46 



1735 

005616 

01? /o 2 

012665 



MOV 

«MSG13»R2 



1736 

003622 

104 40 4 




TOP 


IPRINT WRITE MODE 


1737 

005624 

013702 

000336 



MOV 

RECORD,R2 



17 3ft 

005630 

1044 2 6 




DCCPHT 


IPRINT RECORD NUMBER 


1739 

005632 

013705 

001112 



MOV 

PARAM»R5 



1740 

005636 

042705 

177/17 



BIC 

4177717,R5 



174 1 

009642 

012702 

012723 



MOV 

SHSG17.R2 



1742 

005646 

022705 

000020 



CMP 

320.R5 



1743 

005652 

001 002 




ONE 

.46 



174 4 

005654 

012702 

012732 



MOV 

4MSGlfl,R2 



1745 

005660 

C 2270 5 

000040 



CMP 

440 *R5 



1746 

005664 

0 010 6 2 




One 

.46 



1747 

005666 

012702 

012705 



MOV 

«MSG15,R2 



1746 

005672 

022703 

000060 



CMP 

#6Q,R5 



1749 

005676 

0 010 0 2 




BNE 

.46 



1750 

005700 

012702 

012714 



MOV 

ttM$Gl6,R2 



1751 

005704 

1044 0 4 




TOP 


IPRINT RECORD LENGTH S 

QUENCE 

1752 

005706 

012702 

012741 



MOV 

4MSG1^,R2 



1753 

003712 

1044 0 4 




TOP 




1754 

005714 

013?o2 

000314 



MOV 

WRChCK,R2 



1755 

005720 

10 4 4 * 6 




OECPRT 


IPRINT "WRITE errors*" 


1/56 

005722 

012700 

000316 



MOV 

HWRCHEK42,R0 



1757 

U 05 7 26 

1 1 2 7 3 7 

000060 

013002 


MOVB 

460.MSG20417 



1756 

005734 

10523/ 

013002 


wRTOi: 

INCB 

MSGPO+17 

IPRINT STATISTICAL REC 

VERT 

1759 

005740 

005710 




TST 

a'RO 



1760 

005742 

001405 




BEQ 

WRTP2 



1761 

005744 

012702 

012763 



MOV 

4MS620,R2 



1762 

005750 

104404 




TOP 




1763 

005752 

0110 0 2 




MOV 

<01.R2 



1764 

005754 

104 4 2 6 




DECPKT 


irecovered AT X 


1765 

005756 

0057^0 



URTD2X 

TST 

101 + 

UUST incrementing 


1766 

0 L 3 7 6 0 

02 0 0*7 

000334 



CMP 

R0,«WRCHEK420 


1767 

0U5764 

0 0136 3 




ONE 

WRTD1 




CR 

CR 

CR 

CR 

CR 

CR 

CR 

CR 

CR 
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176a 

005766 

005737 

000334 



TST 

pcrmbs 





1769 

005772 

0010U1 




BNE 

.44 

ISKIP PRINT IF # 0 




1770 

005774 

G00267 




RTS 

PC 





1771 

005776 

012702 

013005 



MOV 

HMSG20A.R2 





1772 

006002 

1 044 U 4 




TOP 






1773 

006004 

013702 

000334 



MOV 

PERMBS,R2 

tPRINT “PERMANENT BADS 

OT« 



1774 

006010 

1044*6 




UECpRT 






1775 

006012 

00026 7 




RTS 

PC 





1776 





IGENERATE 7 track data pattern 



CR 

1777 





I all patterns 

HAVE BITS 15*14.7*6 SET IN CASE CORE 

OUMP 

SELECTED 


1778 

006014 

012737 

OOOOOl 

001346 

GENP7: 

MOV 

tt 1 * PGMOOE 

iset 7 track pattern g 

N, MODE 

eft 

1779 

006022 

013702 

000250 



MOV 

WBUF.R2 




CR 

1760 

006026 

013743 

001112 



MOV 

PARaM «R3 





1761 

006032 

000303 




SWAB 

R 3 





1762 

006034 

006363 




asl 

R3 





1783 

006036 

042703 

177741 



bic 

4177741,R3 





1784 

006042 

062703 

006114 



ADD 

flPATPST «R3 





1785 

006046 

012746 

006054 



MOV 

#PATCK,-<SP) 

1 PUSH stack return 




1766 

006052 

011367 




MOV 

an K 3 , P C 

IGO TO PAT GEN SUBROUT 

NE 



1767 





IFINISHED PATTERN GFNERATION 





1768 





1 IF CORE DUMP 

NOT SELECTED CLEAR BITS 15.14,7*6 IN 

ALL 

WORDS OF WRITE 

DATA BU FE 

1789 

006054 

032737 

000100 

001112 

patch: 

BIT 

#100,PARAM 

IIS CORE DUMP SET? 




1790 

006062 

001464 




BEQ 

PATEN 

INO 




1791 

006064 

032737 

000200 

001112 


BIT 

#200,PARAM 

IMAYBE, IS CORE DUMP S 

T? 



1792 

006072 

003 Oo? 




BNE 

PATEN2 

1 YES 




1793 

006074 

013 71 2 

000250 


PATEfj; 

MOV 

WBUF.R2 

INO 




1794 

006100 

0427*2 

140300 


pateni : 

BIC 

#140300. (214 

tCLEAR BITS 15*14,7,6 




1795 

006104 

0 2 3 7 u 2 

000252 



CMP 

RBUF,R2 - 

1 DONE ALL? 




1796 

006110 

0013/3 




BNE 

PATENI 

INO 




1797 

0061 12 

000207 



PATEN2: 

RTS 

PC 





1798 

006114 

006154 



patpst i 

PATEO 






1799 

006116 

0061*>2 




PATOO 






1600 

006120 

0061 /0 




PATEI 






1601 

006122 

006204 




PAT 01 






1802 

006124 

0 0 62*0 




PATE2 






1603 

006126 

0062*6 




PAT02 






1804 

006130 

0 06 2 3 4 




PATE3 






1605 

006132 

006242 




PAT03 






1806 

006134 

006260 




PA1C4 






1607 

006136 

0067^0 




PAT 4 






1608 

0 U 614 0 

0062 / 4 




PATF 5 






1609 

0 0 b 14 2 

00b3* 2 




PAT 05 






1810 

006144 

0063^2 




PAT 6 






1811 

006146 

00* 352 




PAH. 






1812 

006150 

0063^0 




PATE? 






1813 

006152 

0 0 716 S 




PAT 7 






1814 





ipattern 0 






1815 





I high frequency outsioe skew 





1816 

006154 

012763 

140701 


pateo: 

MOV 

#140701,R3 

1401 




1617 

006160 

000513 




HR 

PFlLl 





1818 





1 HALF FREQUENCY OUTSIOE SKEW 





1619 

0 o 61 6 2 

012763 

140301 


patoq : 

MOV 

#140301,R3 

11 




1620 

006166 

0 0 051 0 




HR 

PFIll 





1023 





IPATTERN 1 






1622 





ISLIDING 0 






162 3 

006170 

012763 

006176 


patei: 

MOV 

#PEl,R3 





1824 

006174 

0 0 0 5 1 2 




UR 

PF II 3 
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1825 

006176 

16773 / 


pEl* 

167737 


127437 


1826 

006200 

175767 



175767 


135467 


1827 

006202 

177375 



177375 


137075 


1828 




(SLIDING 1 




1829 

006204 

0127U3 

006212 

PATOi: 

MOV 

#POi*R3 



1830 

006210 

000504 



DR 

PFIl 3 



1831 

006212 

150340 


P01 i 

150340 


110040 


1832 

006214 

142310 



142310 


12010 


1833 

006216 

14(j7o 2 



140702 


1402 


18 34 




IPATTERN 2 




1835 




1 high 

frequency 

r EVFRY other 

TRACK 


1836 

006220 

G127u3 

152725 

PATE2 l 

MOV 

»15?725,R3 

*12425 


1837 

006224 

0004/1 



DR 

PFIL1 



1638 




1 HIGH 

FREQUENCY EVERT OTHER 

TRACK 


1839 

006226 

012703 

165352 

PAT 02 S 

MOV 

1(165352,R3 

125052 


164 0 

006232 

0004 66 



DR 

PFIt 1 



1641 




IPATTERN 3 




1842 




iHALF 

FREQUENCY OUTSIDE TRACK, HIGH FREQUENCY 

1NSI 

184 3 

006234 

012703 

177377 

PATE3I 

MOV 

til 77377, R3 

137077 


164 4 

006240 

000463 



bK 

PFIl 1 



1645 




l N16 H 

FREQUENCY OUTSIDE TRACK, HALF FREQUENCY 

INS! 

1846 

006242 

012705 

177701 

PATO 3 : 

MOV 

Ml 77701,R3 

137401 


1647 

006246 

000460 



DR 

PFIL1 



1846 




IPATTERN 4 




1849 




1 INCREMENTING PATTERN (NO ALL 0*S> 


1850 

006250 

012703 

000301 

PATE4 : 

MOV 

11301 ,R3 



1851 

006254 

110322 



MO VB 

R3,(2)4 



1652 

006256 

023702 

000252 


CMP 

RBUF,R2 



1853 

006262 

001001 



BNE 

.44 



1854 

0C6264 

00020 7 



RTS 

PC 



1855 

0 01 > 2 6 6 

105203 



INCB 

K 3 



1856 

006270 

00l7o7 



BEQ 

PATE4 



3857 

006272 

0 0 0 7 /0 



DR 

PATf 4+4 



1860 





1 




1859 





t 




1860 




IPATTERN 5 




1661 




iThRee 

3•S EACH track every 

6 TH WORD 


1862 

006274 

012703 

006302 

PATE51 

MOv 

tiPE5,R3 



1663 

006300 

0004°3 



DR 

PFIL9 



1664 

006302 

157437 


PE5S 

157437 


11743? 


1865 

006304 

167/37 



167737 


*27437 


18b6 

006306 

1677 7 



167757 


127457 


1867 

006310 

1737b7 



173767 


133467 


1660 

006512 

17l7b7 



1 7 1 7t>7 


131467 


1869 

006314 

1717/3 



171773 


*31473 


1870 

006316 

1767/5 



176775 


137075 


1871 

006320 

1773 /6 



177376 


137 0 76 


18 72 




ITHREE 

1 *S EACH TRACK EVERT 

6 TM wORO 


1873 

006322 

012705 

006330 

PAT05S 

MOV 

#P05,R3 



167 4 

006326 

00 0 4^2 



DR 

PFIL 9 



1875 

006330 

160340 


P05I 

160340 


120040 


1676 

006332 

150340 



150340 


110040 


1677 

006334 

1503*0 



150320 


110020 


1878 

006336 

144310 



144J1G 


14010 


1879 

006340 

142310 



1423X0 


*2010 


I 86 0 

006 342 

14 2 30 4 



14 2 3 04 


12004 


1681 

006344 

141302 



141302 


*1002 



TRACKS 

TRACKS 
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1662 

006346 

1407U2 



140702 


1402 

1663 

006350 

140701 



140701 


1401 

1684 





(PATTERN 6 



1885 





iALL 1*S AIL TRACKS 


1666 

006352 

0127U3 

177777 


PAT65 MOV 

8-1.R3 


1687 

006356 

000414 



BR 

PFIll 


1686 





(PATTERN 7 



1689 





1 RANDOM {NONE 

all 0 # S) 


1890 

006360 

004747 

007126 


PATE7! JSR 

PC«PANGEN 


1891 

006364 

132707 

000077 

007256 

BITB 

477,RANDOM 


1692 

006372 

0017/2 



BCG 

PATF7 


1693 

006374 

113722 

007256 


MO VB 

RANOOM *(2)4 


1894 

006400 

023702 

000252 


CMP 

RBUF.R2 


1895 

006404 

001305 



BNE 

PATE7 


1696 

006406 

00020 7 



RTS 

PC 


1697 





jFILL WRITE BUFFER WITH CONSTANT PATTERN 

1696 

006410 

010322 



PFXL1S MOV 

R 3 * (2)4 


1899 

0 06412 

023702 

000252 


CMP 

RBUF t R2 


1900 

006416 

0013/4 



BNE 

PFIll 


1901 

006420 

000207 



RTS 

PC 


190 2 





(FILL WRITE BUFFER WITH 3 

WORD PATTERN 

1903 

006422 

010 504 



PFIL3J MOV 

R 3 « R 4 


1904 

006424 

062704 

000006 


ADO 

4 6 « R 4 


1905 

006430 

0123<2 



PFIL3AJ MOV 



1906 

006432 

023702 

000252 


CMP 

RBUF«R2 


1907 

006436 

001001 



BNE 

• 44 


1908 

OO6440 

000207 



RTS 

PC 


1909 

0 U 6 4 4 2 

020304 



CMP 

R3.R4 


1910 

006444 

001 002 



BNE 

.46 


1911 

006446 

162703 

000006 


SUB 

fc6,R3 


1912 

006452 

0007c, fe 



UR 

PFI13A 


1913 





(FILL WRITE BUFFER WITH 9 

WORD PATTERN 

1914 

006454 

01030 4 



PF1L9J MOV 

R3.R4 


1915 

006456 

062704 

000022 


ADO 

*22,R4 


1916 

006462 

012322 



pfilva: mov 

(2)4 


1917 

006464 

0237U2 

000252 


CMP 

RQUF.R2 


1918 

006470 

OOlOUt 



BNE 

.44 


1919 

006472 

00020 7 



RTS 

PC 


1920 

0U6474 

020304 



CMP 

R3«R4 


1921 

006476 

0 010 0 2 



HUE 

.46 


1922 

006500 

16 2 7 0 3 

000022 


SUB 

U 22.R3 


192 3 

006504 

0 0 0 71,6 



UR 

PFI19A 


1924 





I6ENERATE 9 TRACK DATA PATTERN 

1925 

006606 

012737 

000002 

001146 

g£nP9; mov 

(I2.PGM0DE 

(SET 9 TRACK PATTERN G N. MODE 

1926 

006514 

013702 

000250 


MOV 

WBUF*R2 

(INITIALIZE BUFFER 

1927 

006520 

013703 

001112 


MOV 

PARAM.R3 

(CHECK PARAMETERS FOR ATTERN SELECTED 

1926 

006524 

0003^3 



SWAB 

R 3 


1929 

006526 

042703 

177761 


BIC 

«177761iR3 


1930 

006532 

062703 

006540 


ADO 

hPA rPNT «R3 


1931 

006636 

011307 



MOV 

SR3 * PC 


1932 

006540 

006560 



PATPNTJ PATO 



1933 

006542 

0065/4 



PAT 1 



1934 

006544 

0 0664 4 



PAT? 



19 35 

006546 

006660 



PAT3 



1936 

006550 

006730 



PATH 



1937 

006552 

0 0 6 7 5 S 



PATS 



1938 

006654 

0070/2 



PAT69 





PM68 
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1959 

006656 

007106 



PAT7 



I9‘#u 




(PATTERN 0 


CR 

i9m 




(HALF 

FREQUENCEY OUTSIDE SKEW 

CR 

1942 

006560 

0127*2 

002012 

pato t 

MOV 

42012.(2)4 1 (010X004) 

CR 

1943 

006564 

02370 2 

000252 


CMP 

RBUF.R2 

CR 

1944 

006570 

0013/3 



BNE 

PATO 

CR 

1945 

006572 

000207 



RTS 

PC 

CR 

1946 




■PATTERN 1 


CR 

1947 




■sliding t bit 

(ISOLATED BIT) 

CR 

1948 

006574 

012700 

006622 

pati: 

MOV 

4P1T.R0 

CR 

1949 

006600 

0120*2 


patia: 

MOV 

(0)4.(214 

CR 

1950 

006602 

023702 

000252 


CMp 

RBUF.R2 

CR 

1951 

006606 

001001 



BNE 

.44 

CR 

1952 

006610 

00020 7 



RTS 

PC 

CR 

1953 

006612 

0227U0 

006644 


CMP 

APAT2.R0 

CR 

1954 

006616 

0013/0 



BNE 

patia 

CR 

1955 

006620 

000765 



HR 

PAT t 

CR 

1956 

006622 

1 0 0 0 o 0 


PIT 1 

100000 


CR 

1957 

006624 

0201O0 



20100 


CR 

1958 

006626 

0040*0 



4020 


CR 

1959 

006630 

001004 



1004 


CR 

I960 

006632 

ooooui 



1 


CR 

1961 

006634 

04 02 u 0 



40200 


CR 

1962 

006636 

OlOO 1 * 0 



10040 


CR 

1963 

006640 

002010 



2010 


CR 

1964 

006642 

00040 2 



402 


CR 

1965 




(PATTERN 2 


CR 

1966 




ihigh 

FREQUENCY evert other track 

CR 

1967 

006644 

0127*2 

136274 

PAT2: 

MOV 

4136274X2)4 X2?4)(274) 

CR 

1968 

006650 

023702 

000252 


CMP 

RBUF.R2 

CR 

1969 

006654 

0013/3 



BNE 

PAT2 

CR 

1970 

006656 

00020 7 



RTS 

PC 

CR 

1971 




(PATTERN 3 


CR 

1972 




t THREE 

0*S* THREE i*S. THREE 0*S( 

CR 

1973 

006660 

0127U0 

006706 

PAT 3 S 

MOV 

AP3T.R0 

CR 

1974 

006664 

0120*2 


PAT3AJ 

MOV 

(0)4.(2)4 

CR 

1975 

006666 

023702 

000252 


CMP 

RBUF.R2 

CR 

1976 

006672 

001001 



BNE 

.44 

CR 

1977 

006674 

00020 7 



RTS 

PC 

CR 

1978 

006676 

0227 0 0 

006730 


CMP 

APAT4.R0 

CR 

1979 

006702 

0013/0 



BNE 

P A T 3 A 

CR 

1980 

006704 

000765 



UR 

PAT 3 

CR 

1981 

006706 

140037 


P3TI 

140037 


CR 

1982 

0 06710 

1004/6 



100476 


CR 

1983 

006712 

0015/4 



1574 


CR 

1984 

006714 

0037 /0 



3770 


CR 

1985 

006716 

017760 



17760 


CR 

1986 

006720 

037300 



37300 


CR 

1967 

006722 

07t 20 1 



76201 


CR 

1988 

006724 

174003 



174003 


CR 

1989 

006726 

17000 7 



170007 


CR 

1990 




iPATTERN 4 


CR 

1991 




(INCREMENTING i 

PATTERN 10*377) 

CR 

1992 

006730 

1050^7 

006754 

PAT4S 

CLRB 

P4 A 

CR 

1993 

006734 

1137*2 

006754 

P4! 

MO VB 

P4A X 2)4 

CR 

1994 

006740 

10 5 2 o 7 

006754 


INCB 

P4A 

CR 

1995 

006744 

023702 

000252 


CMP 

RBUF.R2 

CR 



P46» 
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1996 

006750 

0013/1 


BNE 

P4 


CR 

1997 

006752 

000207 


RTS 

PC 


CR 

199ft 

006754 

000000 


P4AI 0 



CR 

1999 




IPATTERN 5 



CR 

2000 




t each track 3 1 

BITS 


CR 

2001 

006756 

012700 

007004 

pAT5: MOV 

HP5T.R0 


CR 

2002 

006762 

0120*2 


PAT5A: MO \l 

(0)*.<2)+ 


CR 

2003 

006764 

023702 

000252 

CMP 

RBUF«R2 


CR 

2004 

006770 

00100 i 


BNE 

• *4 


CR 

2005 

006772 

00020 7 


RTS 

PC 


CR 

20 06 

006774 

022700 

007072 

CMP 

HPAT69 1 RO 


CR 

2007 

007000 

0013/0 


BNE 

PAT5A 


CR 

2000 

007002 

000765 


BR 

PATS 


CR 

2009 

007004 

oooouo 


P5TI 0 



CR 

2010 

007006 

looouo 


100000 


■ 

CR 

2011 

007010 

100200 


100200 



CR 

2012 

007012 

0401 00 


40100 



CR 

2013 

007014 

02eioo 


20100 



CR 

2014 

007016 

020040 


20040 



CR 

2015 

007020 

010 0-0 


10020 



CR 

2016 

007022 

0 04 0<- 0 


4020 



CR 

2017 

007024 

004010 


4010 



CR 

2010 

007026 

002 0 0 4 


2004 



CR 

2019 

007030 

001004 


1004 



CR 

2020 

007032 

001002 


1002 



CR 

2021 

007034 

00 04 ul 


401 



CR 

20 22 

0070 56 

OOUOO 1 


1 



CR 

2023 

007040 

oocooo 


0 



CR 

2024 

007042 

100200 


100200 



CR 

2025 

007044 

040200 


40200 


% 

CR 

2026 

007046 

04 0lo0 


40100 



CR 

2027 

007050 

020040 


20040 



CR 

2020 

007052 

010040 


10040 



CR 

2029 

007054 

0100*0 


10020 



CR 

2030 

007056 

004010 


4010 



CR 

2031 

007060 

002010 


2010 



CR 

2032 

007062 

002064 


2004 



CR 

2033 

0 0 7 0 6 4 

001002 


1002 



CR 

2 0 *>‘i 

007066 

000402 


402 



CR 

1 * ) 

007070 

00040 t 


401 



CR 

o 36 




1 PATTE 8 N 6 



CR 

2 0 3 7 




IHIGM FREQUtMC 

T ALL TRACKS 



2038 

007072 

0127*2 

177777 

PAT69S MOV 

»- 1 • C 21♦ 


CR 

2039 

007076 

023702 

000252 

CMP 

RBUF.R2 


CR 

2040 

007102 

001373 


BNE 

PAT69 


CR 

2041 

007104 

600207 


RTS 

PC 


CR 

2042 



„ 

IPATTERN 7 



CR 

2043 




1 RANDOM 



CR 

2 044 

007106 

0 04 73 7 

007126 

PAT7; JSR 

PC » R ANGEN 


CR 

2045 

007112 

0137*2 

007256 

MOV 

R ANOOM * ( 2 > ♦- 


CR 

2046 

007116 

023702 

000252 

CMP 

R8UF.R2 


CR 

2047 

007122 

001371 


BNE 

PAT7 


CR 

204a 

007124 

00020 7 


RTS 

PC 


CR 

2049 








2050 




iRANOOM NUMBER 

GENERATOR 



2051 




jEylT WITH RANDOM NUMBER IN 

LOCATION NAMED “RANDOM 


2052 

007126 

010046 


ran&en: mov 

RQ.-(SP) 

ISAVE REGISTERS 

CR 
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2053 

007130 

010146 




MOV 

ftl*-<SPI 



2054 

007132 

010246 




MOV 

H2 * -(SP) 



2055 

007134 

010346 




MOV 

R3.~(SP) 



2056 

007136 

0137U0 

007260 



MOV 

LONUM.RO 

1 SET UP LOW DIGIT 


2057 

007142 

01370 1 

007262 



MOV 

HINUM.R1 

1 SET UP HIGH DIGIT 


20 5 A 

007146 

012703 

000007 



MOV 

#7»R3 

* SET UP SHIFT COUNT 


2059 

007152 

0Q50U 2 




CLR 

R2 



2060 

007154 

00630 0 



RANGlS 

ASL 

RO 

(SHIFT RO LEFT AND 


2061 

007156 

OOblUl 




ROL 

Rl 

(ROTATE CARRY INTO LSB 

OF Rl ANO 

2062 

007160 

0 0610 2 




ROL 

R2 

irotate carry out of r 

INTO R2 

2063 

007162 

005303 




DEC 

R3 

1 DECREMENT R3 


2064 

007164 

0 013/3 




HNE 

RANG1 

1 CONTINUE SHIFT LOOP 


2065 

007166 

063700 

OC 7260 



ADD 

LONUM.RO 

1 ADD NUMBER TO MAKE XI 

S 

2066 

007172 

005501 




ADC 

Rl 

1 PROPAGATE CARRY 


2067 

007174 

06370 1 

007262 



ADO 

HINUM.R1 

(ADD NUMBER TO MAKE X 

29 

2066 

007200 

005502 




ADC 

R2 

i propagate carry 


2069 

007202 

0627 >j 0 

001057 



ADD 

tt 1057 *R0 

I ADD LOW CONSTANT 


2070 

007206 

005501 




ADC 

Rl 

; PROP AC ATE CARRY 


2071 

007210 

005502 




ADC 

R 2 

l PROPAGATE CARRY 


2072 

007212 

062701 

047401 



ADD 

447401.Rl 

1 ADO HIGH CONSTANT 


2073 

007216 

005502 




ADC 

R2 

iPROP agate carry 


2074 

007220 

062702 

0 0 C 0 0 6 



ADD 

46.R2 

I ADD HIGH CONSTANT 


2075 

007224 

06020 0 




ADD 

R2.R0 

IHE-PKIME RO WITH HIGH 

DIGIT 

2076 

007226 

n o 1 5 o i 




ADC 

Rl 

1 PROPAGATE CARRY 


2 0 77 

007230 

010 0 4 7 

007256 



MOV 

RO.RANDOM 

ISAVE RANDOM NUMBER 


20 7 A 

007234 

010 0 4 7 

007260 



MOV 

RO.t ONUM 

t PUT RO BACK IN t. ONUM 


2079 

007240 

0101^? 

007262 



MOV 

Rl.MlNUH 

1 PUT Rl BACK IN HINUM 


2 0 A 0 

007244 

C1260 3 




MOV 

( SP )♦ .R3 

IRESTORE REGISTERS 


2081 

007246 

012602 




MOV 

(SP1 ♦ * R2 



2002 

00 7250 

012601 




MOV 

(SPH-.Rl 



2063 

00725? 

012600 




MOV 

<SP>*.R0 



2064 

007254 

00020 7 




RTS 

PC 

J EX I T 


2065 





1 





2006 

007256 

0 0 0 0 0 0 



random: 

0 




2007 

007260 

oooooo 



lonumj 

0 




2006 

007262 

OOGOGO 



HlNUMJ 

0 




2009 





IRCAO RECORD 

SECTION 



2090 

007264 

00574 7 

000336 


READi; 

TST 

RECORD 

(FIRST RECORD? 


2091 

007270 

001003 




ONE 

DOLL R1 

4 NO 


2092 

007272 

013747 

000266 

000354 


MOV 

strlen.readlniset initial read leng 

H 

2093 

007400 

012747 

177775 

000304 

oollriJ 

MOV 

M-3.ROPASS 

UNITIALIZE REAO PASS 

OUNTER 

2094 

007306 

0137/7 

000276 

170702 

rostpo; 

MOV 

COMANO«3MTC 



2095 

007314 

1057/7 

170676 



TSTB 

SMTC 



2096 

007420 

1003/3 




hPL 

.-4 

IWAIT FOR CONTROL UNIT 

READY 

2097 

007422 

0060 / 7 

170666 



ROR 

2MTS 



2096 

007426 

1033/5 




BCC 

.-4 

IWAIT FOR TAPE UNIT RE 

DY 

2099 

007430 

0137 0 0 

000252 


reaogo: 

MOV 

RBUF.RO 



2100 

007434 

013701 

000354 



MOV 

REAOLN.R1 



2101 

007340 

105020 



RG1S 

CURB 

<GU 

(CLEAR READ BUFFER 


2102 

007342 

005301 




DEC 

R1 



2103 

007344 

0 Q1 3 / 5 




BNE 

RG1 



2104 

007346 

0137/7 

000354 

170644 


MOV 

READLN.olBC 

1 SET BYTE COUNT 


2105 

007354 

0054 / 7 

170640 



NEG 

SBC 



2106 

007360 

0137 n 

00025? 

170634 


MOV 

RBUF.aCA 

(SET CURRENT ADDRESS 


210 7 

007466 

0137 7 7 

000276 

170622 


MOV 

COMAND,3MTC 



2106 

007474 

1 04 4 4 2 




GENPT 


(GENERATE TEST PATTERN 


2109 

G07376 

0527/7 

000002 

170612 


BIS 

W2.SMTC 




Cft 

Cft 

Cft 


Cft 

Cft 

Cft 

Cft 
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2110 

007404 

004737 

004532 



jsr 

PC«60WAIT 



2111 










2112 





iRETUNN 

HERE AFTER INTERRUPT 



2113 

007410 

0177A 7 

170600 

000312 


MOV 

SMTs *STATRO 



2114 

007416 

005777 

170574 



TST 

SMTC 

1 ANY STATUS ERRORS 


2115 

007422 

100504 




OMI 

RDERRO 

1 YES 


2116 










2117 





iCHECK FOR DATA ERRORS 



211 a 

007424 

0137 0 0 

000252 



MOV 

RBUF.RO 



2119 

007430 

0137UI 

000250 



MOV 

WBUF .HI 



2120 

007434 

013702 

000354 



MOV 

READLN.R2 



2121 

007440 

0220*1 



OOLLRb• 

CMP 

<0>*. <1)4 

tCHECK FOR PROPER OATA 

TRANSFER 

2122 

007442 

001045 




BNE 

DATERR 

1 HAVE DATA ERROR 


2123 

007444 

162702 

000002 



SUB 

#2»R 2 

ichecked all transfers 


2124 

007450 

001373 




BNE 

D0UR5 

INO 


2125 

Oo 7452 

032737 

000003 

001112 

rTsstp; 

BIT 

#3 ,PARAM 



2126 

007460 

U 0 1 0 0 7 




HNE 

RDSTPC 



2127 

007462 

004737 

007762 



JSR 

PC .RDINCR 

1INCREMENT FOR NEXT BL 

CK 

212ft 

007466 

023737 

000336 

000342 


CMP 

RECORD♦LASRCR 



2129 

007474 

0 01315 




BNE 

REA060 



2130 

007476 

00020 7 




RTS 

PC 

IEXIT readit 


2131 

007500 

0327A 7 

000002 

001112 

rostpc; 

BIT 

#2 * PARAM 

IIS READ MODE RANDOM? 


2132 

007506 

0 0141 4 




HLQ 

ROSTP 

INO 


2133 

007510 

0 0 4 7-37 

007126 


RNDROS: 

JSR 

PC .WANGEN 



2134 

007514 

052737 

177400 

007256 


BIS 

817740Q*RANOOM 


2135 

007522 

012704 

177470 


RNDSU 

MOV 

#-20 0• • R4 

IOELAT 1 MILLISECOND 


2136 

007526 

005204 




INC 

R4 



2137 

007530 

001376 




BNE 

. -2 



2133 

007532 

005237 

007256 



INC 

RANDOM 



2139 

007636 

001371 




BNE 

RNOS1 



2140 

007540 

00473 7 

007762 


ROSTp: 

JSR 

PC *RDINCR 



2141 

007544 

0237»> 7 

OOC336 

000342 


CMP 

RECORD,LASRCRIOONC LAST RECORD? 


2142 

007552 

001255 




BNE 

ROSTPO 

INO 


2143 

007554 

00020 7 




RTS 

PC 

1 YES EXIT 


21*44 





lHAVE OATA ERROR 



2145 

007556 

032 7 7 7 

020000 

170446 

OAUHRS 

BIT 

#20000«SSR 

1 TYPE ALL READ ERRORS7 


2146 

007564 

0 01014 




BNE 

DATlRl 

INO 


2147 

007566 

012702 

012373 



MOV 

#MSG9A,R2 



2146 

007572 

1044 0 4 




TOP 


IPRINT ‘READ OATA ERRO 

• 

2149 

007574 

01 37 37 

000354 

000270 


MOV 

REAOLNfLENGTH 


2150 

007602 

004 75 7 

010756 



JSR 

PC * PKTS 



2151 

007606 

014102 




MOV 

- «1 >*R2 

IPRINT EXPECTED OATA 


2152 

007610 

1044 a 2 




OCTPKT 




2153 

007612 

014002 




MOV 

• (0)»R2 



2154 

007614 

10441 2 




OCTPKT 


IPRINT ACTUAL OATA 


2155 

007616 

022757 

177775 

000304 

oateri: 

CMP 

fl-3•RDPASS 



2156 

00 7624 

0 0100 2 




BNE 

• +6 



2157 

007626 

005237 

000346 



INC 

OAERRS 

141 TO DATA ERRORS 


21 bft 

007632 

0 0 0 4b 




BR 

RTSR1 



2159 





istatus 

INDICATES AN ERROR• 

CHECK FOR EOT 


2160 

007634 

03273/ 

175600 

000312 

hderrq: 

BIT 

#175600,STATRO*IS ERROR LEGITIMATE 

R EOT? 

2161 

0 U 764 2 

001515 




BEQ 

RNUTAP 

1 HAVE EOT 


2162 

007644 

0327/7 

020000 

1703b0 


BIT 

#20000,SSR 

ITYPE ALL READ ERRORS? 


2163 

007652 

00101 0 




BNE 

RTSREC 

INO 


2164 

007654 

012702 

012346 



MOV 

WMSG9«R2 



2165 

007660 

10440 4 




TOP 


IPRINT *READ STATUS ER 

OR* 

2166 

007662 

013737 

000354 

000270 


MOV 

REA0LN,LEN6TH 




P4&A 
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2167 

007670 

0047^7 

010756 



JSR 

PCtPRTS 



2160 





1+1 TO l 

RDEERS 

IF FIRST ERROR 

PASS 


2169 

007674 

0227 4 7 

177775 

000304 

RTSN6C5 

CMP 

W-3 * ROPASS 



2170 

007702 

001002 




ONE 

• +6 



2171 

007704 

005247 

000344 



INC 

RDERRS 

(♦1 TO status errors 


2172 

007710 

0327 n 

000020 

170314 

rtsri: 

HIT 

*20«3SK 

(DELETE READ RETRYS (S 

4)? 

2173 

007716 

001011 




BNE 

RPASS3 

(YES 


2174 

007720 

005247 

000304 



INC 

RDPaSS 

(DONE ALL RE-READS? 


2175 

007724 

0 014 0 4 




heq 

RPASSI 

(YES 


2176 

007726 

00474 7 

010032 



JSR 

PC «PACK1 

(NO, BACKSPACE TAPE 


2177 

007732 

000147 

007306 



jhP 

RDSTPO 

(GO AGAIN 


2170 

007736 

005247 

000350 


rpassi: 

INC 

NR READ 

(41 TO f40NRE COVER ABLE 

EAO 

2179 

007742 

0127 47 

177775 

000304 

RPASS3J 

MOV 

H**3* RDPASS 



2160 

007750 

032747 

002000 

000312 


BIT 

«2000,STATRD 

1 A 1 EOT? 


2181 

007756 

001054 




BNE 

RNDtPI 

(YES, TYPE "EOT* 


2162 

007760 

00066 7 




HR 

RDSTP 



2163 





I set up 

POINTERS FOR NEXT RECORD 


2164 

007762 

005247 

000336 


ROINCNt 

INC 

RECORD 



2105 

007766 

00574 7 

000310 



T ST 

ULKINC 



2166 

007772 

001416 




BCQ 

HESTR1 



2187 





iRECORD 

LENGTH 

IS changing# 

COUNT IT 


2180 

007774 

063747 

000310 

000354 


ADD 

HIKING.READLN 


2169 

010002 

023747 

000354 

000246 


CMP 

reapln#minleniis length less than m 

NIMUM 

2190 

010010 

0024^4 




BET 

RES THE 

(NO 


2191 

010012 

025747 

000354 

000244 


CMP 

READEN#MAXLEN1 IS LENGTH GREATER THA 

MAXIMUM? 

2192 

010020 

0034 u 3 




BEE 

RESTRl 

(NO 


2193 

010022 

013747 

000266 

000354 

RESTRtS 

MOV 

STRLEN#REAULNlR£SET INITIAL LENGTH 


2194 

010030 

000207 



p.cstkis 

RTS 

PC 



2195 





IBACKSPACE ONE 

RECORD 



2196 

010032 

0060 7 7 

170156 


backi: 

ROR 

SMfS 



2197 

010036 

103375 




fJCC 

* — 4 

(WAIT FOR TAPE UNIT RE 

OY 

2190 

010040 

012777 

177777 

170152 


MOV 

H-l*aBC 

(COUNT 1 RECORD 


2199 

010046 

01377 7 

000276 

170142 


MOV 

COMAND«SMTC 

(SELECT DRIVE 


2200 

010054 

0527/7 

000012 

170134 


BIS 

«12.olMTC 

(ISSUE BACKSPACE 


2201 

010062 

0 Q 4 7 4 7 

004532 



JSR 

PC#f,OWAIT 



2202 

010066 

0427 7 7 

000016 

170122 


BIC 

#JL6.olrtTC 



22 0 3 

010074 

00 020 7 




RTS 

PC 



2204 





(DRIVE 

HAS REACHEO EOT IN READ MODE 


2205 

010076 

004747 

007762 


rndtap: 

JSR 

PC *RDINCR 



2206 

010102 

052747 

000020 

000356 


BIS 

W20.MODES 

(INDICATE AT EOT 


2207 

010110 

012702 

013205 


RNDTPli 

MOV 

MMSG25»R2 



2200 

010114 

1044 0 4 




TOP 




2209 

010116 

012702 

012240 



MOV 

WMSG8•R2 



2210 

010122 

104404 




TOP 




2211 





(DUMP ERROR COUNTERS 



2212 

010124 

C0474 7 

011020 


REAQMPi 

JSR 

PCtPRTO 

(PRINT DRIVE# PATTERN# 

PARITY# DENSITY 

2213 

010130 

013705 

001112 



MOV 

PARAM # R5 



2214 

010134 

042705 

177774 



BIC 

8177774 #R5 



2215 

010140 

012702 

012675 



MOV 

8MSG14 #R2 



2216 

010144 

022705 

000001 



CMP 

W1.R5 



2217 

010150 

001002 




BNE 

.♦6 



2210 

010152 

012702 

012655 



MOV 

8MS612 #R2 



2219 

010156 

022705 

000002 



CMP 

82*R5 



2220 

010162 

001002 




BNE 

• ♦6 



2221 

010164 

012702 

012665 



MOV 

flMSG 13 # R2 



2222 

010170 

1 04404 




TOP 


(PRINT READ MODE 


2223 

010172 

013702 

000336 



MOV 

RECORD#R2 




Cft 

Cft 

Cft 


Cft 
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2224 

010176 

104426 




OECPRT 


IPKINT RECORD NUMBER 



2225 

010200 

013705 

001112 



MOV 

PARAM.R5 



CA 

2226 

010204 

042705 

177717 



BIC 

#177717.R5 



CR 

2227 

010210 

012702 

012723 



MOV 

#M$G17.R2 




2228 

010214 

022705 

000020 



CMP 

#20 *R5 



CA 

2229 

010220 

001002 




ONE 

.♦6 




2230 

010222 

012702 

012732 



MOV 

#MSGl8,R2 




2231 

010226 

022705 

000040 



CMP 

#40 ,R5 



CA 

2232 

010232 

001002 




HNE 

• ♦ 6 




2233 

010234 

0127^2 

012705 



MOV 

#MSG15.R2 




2234 

010240 

022705 

000060 



CMP 

#60«R5 



CA 

2235 

010244 

001002 




ONE 

• +6 




2236 

010246 

012702 

012714 



MOV 

#MSG16.R2 




2237 

010252 

1 04404 




TOP 


IPR1NT RECORD LENGTH S 

6UENCE 


2238 

010254 

012702 

013035 



MOV 

#MS621,R2 




2239 

010260 

104404 




TOP 





224 C 

010262 

013702 

000344 



MOV 

RDERRS.R2 




2241 

010266 

1044^6 




UECPRT 





2242 

010270 

012702 

013065 



MOV 

#MSG22«R2 




2243 

010274 

104404 




TOP 





2244 

010276 

013702 

000346 



MOV 

OAERRS•R2 




2245 

010302 

104 4*6 




OECPRT 





2246 

010304 

012702 

013106 



MOV 

#MSG23«R2 




2247 

010310 

104404 




TOP 





2246 

010312 

013702 

000350 



MOV 

NRREAO « R2 




2249 

010316 

104426 




OECPRT 





2250 

010320 

000207 




RTS 

PC 




2251 





1 WRITE 

RECOVERY UTILIZING 

EXTENDED INTERRECORD GAP 



2252 





tUSEO 

AFTER EVERY 7 REWRITES OR AFTER 



2253 





lEACH 

WRITE ERROR IF STATISTICAL RECOVERY NOT SELE 

TED 


22 54 





iUSEO 

ONLY IF 

READ PASS SELECTEO 



2255 

010322 

012737 

177774 

000306 

XRGREC 

S MOV 

#»4,WRPASS 

ICOUNT 4 REWRITES 



2256 

010330 

032777 

000040 

167674 

XRGO: 

BIT 

#4 0 • olSR 

IDLLETE WRITE XIRG (S 

51 


2257 

010336 

001036 




ONE 

XRGRCO 

1 YES 



2256 

010340 

0047^7 

010032 



JSR 

PC,RACK1 




2259 

010344 

1057/7 

167646 



TSTB 

3MTC 




2260 

010350 

1003/5 




BPL 

• *4 




2261 

010352 

0137/7 

000276 

167636 


MOV 

comano.smtc 




2262 

010360 

0527/7 

000014 

167630 


OIS 

#14,£MTC 

IWHITE XIRG 



2263 

010366 

0137/7 

000352 

167624 


MOV 

WRTI£N,q)BC 

I SET ByTE COUNT 



2264 

010374 

0054 / 7 

167620 



NLG 

30C 




2265 

010400 

0137/7 

000250 

167614 


MOV 

WBUF.9CA 

tSET CURRENT ADDRESS 



2266 

010406 

0060/7 

167602 



ROR 

S'MTS 

IWAIT FOR TU READY 



2267 

010412 

1033/5 




BCC 

* -4 




2268 

010414 

0047^7 

004532 



JSR 

PC t GOWAIT 




2269 





iRETURN HERE AFTER INTERRUPT 



2270 

010420 

017737 

16757Q 

000312 


MOV 

3MTS.STATRD 

ISAVE STATUS 



2271 

010426 

0057/7 

167564 



TST 

SMIC 




2272 

010432 

100403 




BMI 

XRG5 

1 HAVE ERROR FLAG. CMEC 

FOR EOT 


2273 

010434 

005037 

000306 


XRGRCO 

: CLR 

WRPASS 




2274 

010440 

00020 7 




RTS 

PC 

IEXIT WRITE XIRG 



2275 

010442 

032737 

175600 

000312 

XRG5: 

BIT 

#175600.STATRO 



22 76 

010450 

0017 /1 




BEQ 

XRGRCO 

I ONLY EOT, EXIT 



2277 

010452 

005237 

000306 



INC 

WRPASS 

I DONE 4 XIRG 



2278 

010456 

0 013*4 




ONE 

XRGO 




2279 





t PRINT 

STATUS 

AFTER 4 XIRG 

ERRORS 



2260 

010460 

012702 

012212 



MOV 

#MSG7.R2 





"I 
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2261 

010464 

104464 




TOP 


1PKINT WRITE STATUS ER 

OR 


2282 

010466 

013737 

000352 

000270 


MOV 

WRTLEN,LENGTH 




2283 

010474 

004737 

010756 



JSR 

PC,PRTS 

IPRINT STATUS, COMMAND 

RECORD, LENGTH 


2284 

010500 

012702 

012627 



MOV 

4MSG11,R2 




2285 

010504 

104464 




TOP 


IPRINT 11 XIRG WRITTEN 4 

TIMES” 


2286 

010506 

032737 

002000 

000312 


BIT 

W2000,ST ATRO 




2287 

010514 

001762 




UEQ 

xrgrec 




2208 

010516 

04277 7 

000016 

167472 


rue 

ttl6,«MTC 




2289 

010524 

05277 7 

000003 

167464 


BIS 

43.SMTC 

(WRITE AN EOF 



2290 

010532 

004737 

004532 



JSR 

PC , GOUAIT 




2291 

010536 

00026 7 




RTS 

PC 




2292 





I GO BACKWARD 

ON TAPE X RECOROS 



2293 

010540 

013737 

000336 

000342 

gobkuio: 

MOV 

RECORLULASRCR 




2294 

010546 

013737 

000340 

000336 


MOV 

WRRECR,RECORD 




22 95 

010554 

001065 




ONE 

GOBI 

IIS NEW RECORO-O 



2296 

010556 

004737 

004342 



oSR 

PC,REWIND 

iyes, rewind 



2297 

010562 

00026 7 




RTS 

PC 

(EXIT 



2290 

010564 

0137 7 7 

000342 

167426 

GOBI S 

MOV 

L ASRCR * SBC 

(SET BYTE COUNT TO OIF 

ERENCE 


2299 

010572 

163777 

000340 

167420 


SU3 

WRRfCR.SfiC 

(BETWEEN LASRCR AND WR 

ECK 


2300 

010600 

0 054 /7 

167414 



NEG 

20C 




2301 





1 THE following code insures 

THAT BACKSPACE REQUEST 

IN PHASE ENCODED 

CR 

2302 





i mode 

ARE PROCESSED FIRST IN THE SITUATION WHERE 

R2 AND PE MODES ARE 

CR 

2303 





1 BOTH 

SELECTED FOR TESTS ON 

A DUAL DENSITY UNIT 


CR 

2304 

010604 

013762 

000300 



MOV 

CDRVBT,R2 

(GET CURRENT UNIT NO. 


CR 

2305 

010610 

132757 

000004 

000277 


BITB 

44,COMAND+1 

IIS CURRENT UNIT NO. 4 

5, 6, OR 7? 

CR 

2306 

010616 

001067 




BNE 

GOB? 

1 YLS 


CR 

2307 

010620 

004737 

010716 



JSR 

PC , TSTUP4 

IIS UNIT NO. PLUS 4 AL 

0 SELECTED? 

CR 

2308 

010624 

000412 




UR 

GOB 3 

1 NO - PROCEED WITHOUT 

CHANGE 

CR 

2309 

010626 

152737 

000004 

000277 


BISB 

44 * COMANO + 1 

1 YES - ADD 4 TO COMAN 

UNIT NO, 

CR 

2310 

010634 

00041-6 




BR 

GOBS 



CR 

2311 

010636 

004737 

010730 


GOB2S 

JSR 

PC,TSTUM4 

IIS UNIT NO. MINUS 4 A 

SO SELECTED? 

CR 

2312 

010642 

0004 U 3 




UR 

GOB 3 

1 NO - PROCEED WITHOUT 

CHANGE 

CR 

2313 

010644 

14273/ 

000004 

000277 


BICB 

4 4 * COMANO+1 

i yls - subtract 4 fro 

COMANG UNIT NO. 

CR 

2314 

010652 

013777 

000276 

167336 

GOB3! 

MOV 

COMANO.SHTC 



CR 

2315 

010660 

1057 7 7 

167332 



TSTB 

SMTC 

(WAIT FOR CU READY 



2316 

010664 

1003 7d 




BPL 

• -4 




2317 

010666 

0060 7 7 

167322 



ROR 

3MTS 

iwait for tu ready 



2318 

010672 

103373 




UCC 

• -4 




2319 

010674 

042777 

000016 

167314 


BIC 

ft 16 * &MTC 




2320 

010702 

0527 7 7 

000012 

167306 


BIS 

« 12 ,aMTC 




2321 

010710 

004757 

004532 



JSR 

PC«GOWAIT 




2322 

010714 

00020 7 




RTS 

PC 




2323 





ITSTUP4 

4 TSTUM4 TEST FOR SIMULTANEOUS SELECTION 0 

A DUAL DENSITY 

CR 

2324 











2325 











2326 





1 UNIT, 

SUCH 

AS UNIT NOS. 0 

& 4. 1 1 5« ETC, 


CR 

2327 





1 IF THIS CONDITION EXISTS, 

CONTROL RETURNS TO CAL 

LOC. ♦ 4* 

CR 

2328 





1 OTHERWISE RETURN IS TO CALL LOC. ♦ 2* 


CR 

2329 

010716 

006202 



TSTUP4J 

AvSR 

R2 

IUNIT NO. IN RANGE 0-3 


CR 

2330 

010720 

006262 




ASR 

R2 



CR 

2331 

010722 

006262 




ASR 

R2 



CR 

2332 

010724 

006262 




ASR 

R2 



CR 

2333 

010726 

000464 




UR 

TSTPM 



CR 

2 3 34 

010730 

006362 



TSTUH4: 

ASL 

R2 

IUNIT NO. IN RANGE 4-7 


CR 

2335 

010732 

006362 




ASL 

R2 



CR 

2336 

010734 

006362 




ASL 

R2 



CR 

2337 

010736 

006302 




ASL 

R2 



CR 


.* • M 
1 
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2338 

010740 

030237 

000272 


tstpm: 

BIT 

R2«MSBITS 

1 DOES SIMULTANEOUS SEL 

CTION EXIST? 

Cft 

2339 

010744 

001001 




BNE 

SETSTK 

1 YES - ALTER RETURN 


CR 

234 0 

010746 

000207 




NTS 

PC 

t NO 


CR 

2341 

010750 

062716 

000002 


setstks 

ADD 

#2,o*SP 



Cft 

2342 

010754 

000207 




RTS 

PC 



Cft 

2343 





IPRINT 

command 

* STATUS* KECORD NUMBER* LENGTH 



2344 











2345 





( 






2346 

010756 

012702 

012416 


PRTSI 

MOV 

AMS69B.R2 




234 7 

010762 

104404 




TOP 





234 8 

010764 

017 7 u 2 

167226 



MOV 

aMTC.R2 




2349 

010770 

1044 12 




OCTPRT 





2350 

010772 

013702 

000312 



MOV 

STATRO«R2 




2351 

010776 

104412 




OCTPRT 





2352 

011000 

013702 

000336 



MOV 

RECORD,R2 




2353 

011004 

005202 




INC 

R2 




2 3 94 

011006 

104426 




DECPRT 





2355 

011010 

0137 0 2 

000270 



MOV 

LENGTH « R2 




2 356 

011014 

1 04426 




DECPRT 





2357 

011016 

0GC2O 7 




RTS 

PC 




2358 





|PR1NT 

DRIVE, 

PATTERN, PARITY* DENSITY 



2359 

011020 

012705 

000240 


PRTOl 

MOV 

#240,R5 



CR 

2360 

011024 

104434 




PRC 


IPRINT SPACE 


Cft 

2361 

011026 

013705 

000276 



MOV 

COMANO,R5 



Cft 

2362 

011032 

000305 




SWAB 

R5 



Cft 

23b 3 

011034 

142705 

000170 



01 CM 

w i?o *R5 



CR 

2364 

011040 

052705 

000260 



BIS 

#260*R5 



Cft 

2365 

011044 

1 04434 




PRC 


IPRINT ORIVE NUMBER 


Cft 

2366 

011046 

104430 




SP3 





2 367 

011050 

013705 

001112 



MOV 

PARAM,R5 



Cft 

2368 

011054 

0003o5 




SWAB 

H5 



Cft 

2369 

011056 

0 0 6 0 o 5 




ROR 

R5 



CR 

2370 

011060 

042705 

000170 



BXC 

#170,R5 



Cft 

2371 

011064 

052705 

000260 



BIS 

ft260 * KS 



Cft 

2372 

011070 

104434 




PRC 


IPRINT PATTERN NUMBER 


Cft 

2373 

011072 

104430 




SP3 





2374 

011074 

0137 n 

000276 

167114 


MOV 

COMAND * 3MTC 

I SELECT UNIT 


Cft 

2375 

011102 

1057/7 

167110 



TSTB 

aMTC 



CR 

2376 

011106 

100375 




BPL 

• 

IWAIT FOR CU READY 


Cft 

2377 

011110 

0327 / 7 

000020 

167076 


BIT 

#20 * QMTS 

IIS UNIT 7 TRACK? 


Cft 

2378 

011116 

001005 




ONE 

PRTOl 

1 YES 


Cft 

2379 

011120 

012702 

013315 



MOV 

8MS631«R2 

19 TRACK UNIT - POSITI 

N PAST PAD 

Cft 

2380 

011124 

104404 




TOP 




CR 

2381 

011126 

104 4 3 0 




SP3 




Cft 

2302 

011130 

000207 




R1S 

PC 



Cft 

2383 

011132 

013705 

001112 


prtdij 

MOV 

PARAM,R5 



Cft 

2384 

0111-36 

000305 




SWAB 

R5 



Cft 

2385 

011140 

042705 

000176 



BIC 

#176,R5 



Cft 

2386 

011144 

052705 

000260 



ms 

#260 ,R5 



Cft 

2 367 

011150 

104434 




PRC 


IPRINT PARITY 


Cft 

2388 

011152 

013705 

001112 



MOV 

PARAM,R5 



Cft 

2389 

011156 

042705 

177477 



BIC 

#177477,R5 



Cft 

2390 

011162 

012702 

013250 



MOV 

#MSG26,R2 




2391 

011 166 

022705 

000100 



CMP 

#100•R5 



Cft 

2392 

011172 

001002 




ONE 

• 46 




2393 

011174 

012702 

013260 



MOV 

#HSG27*R2 




2394 

011200 

0227L6 

000200 



CMP 

#200 «R5 



Cft 
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2395 

011204 

00100 2 




BNE 

• 4-6 



2396 

011206 

012702 

013270 



MOV 

#MSG28 »R2 



2397 

011212 

022705 

000300 



CMP 

#300 *R5 


CR 

2398 

011216 

001002 




BNE 

• 46 



2399 

011220 

012702 

013300 



MOV 

#MSG29« R2 



2400 

011224 

104404 




TOP 




2401 

01122b 

00020 7 




RTS 

PC 



2402 





1 PRINT 

CCTAt 

VALUE IN REGISTER 2 


2403 

011230 

C127o 5 

000060 


OtTPRS 

MOV 

#*0,R5 

UNITIALIZE 1ST NUMBER AS 0 

CR 

24 04 

011234 

005702 




TST 

R2 

IIS VALUE POSITIVE 


2405 

01123b 

100002 




BPL 

OCT 1 

I YES PRINT 0 


2406 

011240 

012705 

000061 



MOV 

#*1.R5 

INQ PRINT 1 

CR 

2407 

011244 

104434 



OCT1S 

PRC 



CR 

2400 

011246 

0 C 61 o 2 




ROL 

R2 



2409 

011250 

006102 




KOL 

R2 



2410 

011252 

012737 

177773 

011320 


MOV 

#-5 *OCT 

ICOUNT 5 DIGITS 


2411 

011260 

006102 



OCT25 

ROL 

R2 



2412 

011262 

0 0610 2 




ROL 

R2 



2413 

011264 

006102 




ROL 

R2 



2414 

011266 

010205 




MOV 

R2,R5 

ISAVE DIGIT 

CR 

2415 

011270 

042705 

177770 



BIC 

#177770 tR5 

1 CLEAR OTHER BITS 

CR 

2416 

011274 

052705 

000060 



BIS 

#6Q,R5 

IMAKE ASCII DIGIT 

CR 

2417 

011300 

006002 




ROR 

R2 



2418 

011302 

104434 




PRC 


IPRINT 

CR 

2419 

011304 

006102 




ROL 

R2 



2420 

011306 

005237 

011320 



INC 

OCT 

•♦1 TO OIGIT COUNT 


2421 

011312 

001362 




BNE 

OCT? 

INOT DONE 


2422 

011314 

104430 




SP3 




2423 

011316 

000207 




RTS 

PC 

IEXIT 


2424 

011320 

oooooo 



OCT * 

0 




2425 

011322 

1057 /7 

166712 


OCTP1 

TSTB 

STPS 



2426 

011326 

1003 /5 




BPL 

• —4 

IWAIT FOR READY 


2427 

011330 

0105/? 

166706 



MOV 

R5.3TPB 

IPRINT 

CR 

2428 

011334 

000207 




RTS 

PC 



2429 





IPRINT 

DECIMAL VALUE IN REGISTER 2 


2430 

011336 

012737 

177773 

011506 

oecpr; 

MOV 

#-5.DIGCNT 



2431 

011344 

012737 

011514 

01151? 


MOV 

#DEcPNT 4-2 tOECPNT 


2432 

011352 

012737 

000040 

011510 


MOV 

#40.ZERO 



2433 

011360 

01273 7 

177777 

011504 

typti: 

MOV 

8-1•OIGIT 



24 34 

011366 

005237 

011504 


TYPT2J 

INC 

DIGIT 



2435 

0113/2 

16/762 

000114 



SUB 

20LCPNT«R2 



2436 

011376 

1003/3 




BPL 

TYPT? 



2437 

011400 

067762 

000106 



ADD 

BDECPNT«R2 



2438 

011404 

004737 

011432 



JSR 

PC.DECOUT 



2439 

011410 

005237 

011506 



INC 

D1GCNT 



2440 

011414 

001002 




BNE 

TYPT 3 



2441 

011416 

104430 




SP3 




2442 

011420 

0002O 7 




RTS 

PC 



2443 

011422 

062737 

000002 

011512 

TYPT3: 

ADD 

#2•DECPNT 



24 4 4 

011430 

000753 




UR 

TYPT1 



2445 

011432 

005737 

011504 


OECOUT 

: TST 

DIGIT 



2446 

011436 

001010 


* 


BNE 

DEC l 



2447 

011440 

022737 

177777 

011506 


CMP 

#•1•0I6CNT 



2446 

011446 

001464 




BEQ 

OECl 



2449 

011450 

01373/ 

011510 

011504 


MOV 

ZERO.DIGIT 



2450 

011456 

000466 




6R 

DEC? 



2451 

011460 

012737 

000060 

011510 

DECH 

MOV 

#60,ZERO 
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2452 

011466 

05273? 

000060 

011504 


BIS 

460.DIGIT 





2453 

011474 

013705 

011504 


DEC2S 

MOV 

DIGIT.R5 




CR 

2454 

011500 

104434 




PRC 





CR 

2455 

011502 

00020 7 




RTS 

PC 





2456 

011504 

oooooo 



digit: 

0 






2457 

011506 

oooooo 



oigcnt: 

0 






2458 

011510 

0000*0 



z£ro: 

40 






2459 

011512 

011514 



OECPNT! 

• *2 






2460 

011514 

023420 




10000. 






2461 

011516 

001750 




1000. 






2462 

011520 

00 01*4 




100. 






2463 

011522 

000012 




10. 






2464 

011524 

000001 




1. 






24 65 





(KEYBOARD INPUT 





2466 

011526 

1057 f7 

166502 


wAitk: 

TSTB 

STKS 

1 WAIT FOR KEY 




2467 

011532 

1003/5 




BPL 

* **4 





2466 

011534 

1057/7 

166500 



TSTB 

2 TPS 

1 WAIT FOR TELEPRINTER 

EAOY 


2469 

011540 

1003/5 




BPL 

• -4 





2470 

011542 

1177/7 

166470 

166472 


MO VH 

3TKR.3TPB 

1 ECHO CHARACTER 




2471 

011550 

117703 

166462 



MO VB 

8TKR.R3 

ISAVE IT 



CR 

24 72 

013554 

042703 

000200 



BIC 

4200.R3 




CR 

2473 

011560 

00020 7 




RTS 

PC 

lEXIT 




2474 





iTyPE 3 

SPACES 






2475 

011562 

01270 2 

011572 


SP3X5 

MOV 

4SP3A.R2 





2476 

011566 

104404 




TOP 






2477 

011570 

00020 7 




RTS 

PC 





2 476 

011572 

05 7 

040 

040 

SP3A; 

.ASCII 

1/ /I 






011575 

0*0 

057 









2479 






.EVEN 






2460 





llELETYPt OUTPUT PACKAGE 





2481 

011600 

1427/7 

000177 

166432 

to: 

UICR 

Ml77,aTPS 

tCLEAR TELETYPE FLAGS 




2482 

011606 

112237 

011664 



MG VB 

(2)4.EOMK 

ISAVE MESSAGE OELIMETE 




24 6 3 

011612 

1212 J 7 

011664 


TOPI t 

CMPB 

SR2.E0MK 

IIS CHARACTER THE SECO 

0 

MESSAGE 

DELIMITER? 

24 84 

011616 

00106 1 




ONE 

.44 

INO 




2485 

011620 

00020 7 




RTS 

PC 

IYLS, EXIT 




2486 

011622 

1212^7 

000100 



CMPB 

&R2,4•a 

IIS character an o) uhi 

H 

INDICATES A CARRIAGE RET 

2467 

011626 

00140b 




3E0 

T0P2 

1 YES 




2483 

011630 

1057 /7 

166404 



TSTB 

2TPS 

INO. WAIT FOR teletype 

READY 


2489 

011634 

1003/5 




BPL 

.-4 





2490 

011636 

1122/7 

166400 



MO VB 

<2)4.aTPB 

(PRINT CHARACTER 




2491 

011642 

000763 




BR 

TOPI 





2492 





(CARRIAGE return, line feed 





24 9 3 

011644 

012705 

000215 


T0P2S 

MOV 

4215.R5 




CR 

2494 

011650 

104434 




PRC 


ICR 



CR 

2495 

011652 

012705 

000212 



MOV 

4212.R5 




CR 

2496 

011656 

104454 




PRC 


ILF 



CR 

2497 

011660 

105262 




INCB 

R2 ' 





2498 

011662 

000703 




BR 

TOPl 





2499 

011664 

oooooo 



eomk: 

0 






2500 

011666 

01275? 

000004 

000246 

set4k: 

MOV 

44 . M1NLEN 

1 SET RECORD LENGTHS AN 



CR 

2501 

011674 

012757 

002000 

000244 


MOV 

41024..MAXLEN 

(BUFFER AREAS FOR 4K 



CR 

2502 

011702 

012737 

015324 

000252 


MOV 

4UUFFER41024. 

. RBUF 



CR 

2503 

011710 

00026 7 




RTS 

PC 




CR 

25 04 

011712 

012757 

000010 

000246 

setbk: 

MOV 

48,.MINLEN 

(SET RECORD LENGTHS AN 



CR 

2505 

011720 

012757 

004000 

000244 


MOV 

42048..MAXLEN 

(BUFFER AREAS FOR 8K 



CR 

2506 

011 726 

012757 

017324 

000252 


MOV 

4BUFFER42048. 

♦ RBUF 



CR 

2507 

011734 

00026 7 




RTS 

PC 




CR 
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2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 

2517 

2518 

2519 

2520 

2521 

2522 

2523 

2524 

2525 

2526 

2527 

2528 

2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 
2546 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 
2 5b0 

2561 

2562 
2 56 3 
2564 


iPATtHN GENERATION CONTROL 


011736 

0050«U 

007260 


genp: clr 

LONOM 

IRESET RANDOM NUMBER G 

NERATOR 


011742 

0050^7 

007262 


CLR 

HINUM 




011746 

0327// 

000020 

166240 

BIT 

420 * n)MTS 

IIS UNIT 7 TRACK? 


CR 

011754 

001406 



BEQ 

G1 

t NO 


CR 

011756 

02273/ 

000001 

001146 

CMP 

41 .PGMODE 

IIS A 7 TRACK PATTERN 

VAILABLE? 

CR 

011784 

001407 



BEG 

G2 

1 TES 


CR 

011766 

1 0441b 



GCNPT7 


1 NO * generate IT 


CR 

011770 

00020 7 



NTS 

PC 




011772 

0227^ 7 

000002 

001146 

GlS CMP 

M2.PGMODE 

1 IS A 9 TRACK PATTERN 

VAILABLE? 

CR 

012000 

00140 1 



BEG 

G2 

1 TES 


CR 

012002 

104432 



GENP 19 


1 NO - GENERATE IT 


CR 

012004 

000207 



G2 S RTS 

iTRAp HANDLER 

PC 




012006 

011606 

000002 


TRAP34S MOV 

&SP,2<6) 




012012 

162716 

000002 


SUB 

82,aSM 




012016 

0136*6 



MOV 

q)(6)4«*(6) 




012020 

06271 6 

105426 


AGO 

4TAPLE-104400 

• asp 



012024 

01360 7 



MOV 

SI6U.PC 




012026 

0115*6 



TABLE! waitk 





012030 

0045/0 



URITI 





012032 

0116 0 0 



TO 





012034 

00401 0 



SVCTR 





012036 

0 0412 4 



MSFOR 





012040 

0112-30 



OCTPR 





012042 

0040*6 



MVCTR 





012044 

006014 



GENP7 




CR 

012046 

0040/0 



cl?<al 





012.050 

004 30 4 



CHGfIR 





012052 

0072**4 



RE API 





012054 

011 336 



UECPK 





012056 

0115^2 



SP3X 





C 1 2 0 6 0 

006506 



GENP9 




CR 

012062 

011 3*- 2 



OC TP 




CR 

012064 

011666 



SET4K 




CR 

012066 

011712 



SETSK 




CR 

012070 

011736 



GENP 






104400 



WAITKT=104400 






104402 



WRITIT=104402 






104404 



TOP=104404 






104406 



SVCTRS=104406 






104410 



RSF Oft V r 1 ()4 4 10 






10441 2 



OC TPR T =104412 






10441 4 



MVCTRS-104414 






104 416 



GENPT7=104416 




CR 


1044It 0 



CLRALL=104420 






104422 



CHGDRV--1 04422 






1 044*. 4 



READIT=104424 






1044*6 



OECPRT=l04426 






104 4 3 0 



$P3=104430 






104432 



GENPT9=104432 




CR 


104434 



PRC-1044 54 




CR 


104436 



SETrt4K=l04436 




CR 


1 0 4 4 H 0 



SETMftK=l04440 




CR 


1044*2 



GE'Nl’T = 104 442 
jTEXT MESSAGES 





012072 

0 5 7 

077 

too 

MSGOJ .ASCII 


i/?a /i 
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012075 

040 

057 





2565 012077 

057 

100 

123 

msgi: 

.ASCII 

l/SSELECT UNITS /| 

012102 

105 

114 

105 




012105 

103 

124 

040 




012110 

1*5 

116 

111 




012113 

124 

123 

040 




012116 

040 

057 





2566 012120 

0 37 

100 

124 

MSG2I 

.ASCII 

l/STST pat par den rls WHO RMOS /t 

012123 

. 1*3 

124 

040 




012126 

1*0 

101 

124 



' - . 

012131 

040 

120 

lul 




012134 

1*2 

040 

104 




012137 

105 

116 

C 4 0 




012142 

1*2 

114 

123 




012145 

040 

127 

115 




012150 

117 

040 

122 




012153 

115 

117 

100 




012156 

040 

057 





2567 012160 

0^7 

115 

101 

USG5I 

.ASCII 

I/MAX TESTS SELECTEOS/ 

012163 

130 

040 

124 




012166 

iu5 

123 

124 




0121/1 

1*3 

040 

123 




012174 

105 

114 

105 




012177 

103 

124 

105 




012202 

104 

100 

057 




2568 012205 

05 7 

040 

117 

MS66 1 

.ASCII 

1/ OK/I 

012210 

113 

057 





2569 012212 

0^7 

100 

127 

KSG7S 

.ASCII 

1/aWftITE status ERRORS 1 

012215 

3*2 

111 

124 




012220 

105 

040 

123 




012223 

1*4 

101 

124 




012226 

1*5 

123 

040 




012231 

103 

122 

122 




012234 

117 

122 

1 00 




012237 

057 






2570 0122*40 

057 

105 

116 

«SG6S 

.ASCII 

i/end op tape***»***** 

012243 

104 

040 

117 




012246 

106 

040 

124 




012251 

101 

120 

105 




012254 

052 

052 

052 




012257 

052 

052 

052 




012262 

052 

052 

052 




012265 

0- > 2 

052 

052 




012270 

052 

052 

052 




012273 

052 

052 

05? 




012276 

0^2 

052 

100 




2571 012301 

104 

122 

126 


.ASCII 

1 DRV PAT PAR DEN HOOE RECORD LENGTH3/I 

012304 

040 

120 

101 




012307 

1*4 

040 

120 




012312 

101 

122 

040 




012335 

1U 4 

105 

116 




012320 

040 

040 

115 




012323 

117 

104 

105 




012326 

040 

122 

105 




012331 

103 

117 

122 




012334 

104 

040 

114 




012.337 

105 

116 

107 






CR 








^ ^ — - 

.. 

. . ~ 
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012342 

1*4 

110 

100 





012345 

057 







2572 012346 

057 

100 

12? MSG9? 

.ASCII 

l/SREAD STATUS ERRORS/ 



012351 

105 

101 

104 





012354 

040 

123 

124 





012357 

101 

124 

12 5 





012362 

1*3 

040 

105 





012365 

122 

122 

117 





012370 

1*2 

100 

0 5 7 





2573 012373 

057 

100 

122 MS69AJ 

•ASCII 

l/SREAD DATA ERRORS /\ 



012376 

It 5 

101 

1 04 





012401 

O 4 0 

104 

101 



..__ 


012404 

1*4 

101 

040 





012407 

105 

122 

122 





012412 

117 

122 

ion 





012415 

05 7 







2574 012416 

05 7 

103 

117 MSG9BS 

.ASCII 

l/COMO STATUS RECORD L.ENGT 

EXPECTED ACTUALS/! 


012421 

113 

104 

040 





012*24 

040 

040 

040 





012427 

0^ 0 

123 

124 





012432 

lul 

124 

1*5 





012435 

1*3 

040 

040 





012440 

040 

122 

1 05 





012443 

103 

117 

122 





012446 

104 

040 

040 





0124*31 

04 0 

114 

105 





012454 

116 

107 

124 





012457 

110 

040 

1 05 





012462 

130 

120 

105 





012465 

113 

124 

105 





012*70 

104 

040 

101 





012473 

103 

124 

125 





012476 

101 

114 

100 





012501 

057 







2575 012502 

05 7 

100 

104 HSG10A: 

•ASCII 

l/S 3 i POPU 7-9 TRK REL* 1 



012505 

lot 

124 

125 





012510 

115 

040 

120 





012513 

1U 4 

120 

061 





012516 

0&1 

040 

067 





012521 

053 

071 

040 





012524 

1*4 

122 

113 





012527 

040 

122 

105 





012532 

114 

056 






2576 012534 

100 

122 

105 

•ASCII 

I3REC0R0 LIMITS IN BYTESt 



012537 

1 0 3 

117 

122 





012542 

1 U 4 

040 

114 





012545 

111 

115 

111 





012550 

1*4 

123 

040 





012553 

111 

116 

040 




* 

012556 

10 2 

131 

124 





012561 

103 

123 






2577 012563 

100 

115 

111 

•ASCII 

ISHJNLEN MAXLENS/I 



G125C6 

116 

114 

10 5 





012571 

116 

040 

040 





012574 

115 

101 

130 





012577 

114 

105 

116 





012602 

luO 

057 
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2576 012604 

057 

100 

105 

MS610B* 

•ASCII 

1 /atXEKCISING UNITS /1 

012607 

130 

105 

122 




012612 

103 

111 

123 




012615 

1 ) l 

116 

107 




012620 

040 

125 

116 




012623 

lit 

124 

123 




012626 

0 3 7 






2579 012627 

057 

130 

111 

MSGlll 

•ASCII 

I/XIRG WRITTEN 4 TIMES 

0126 32 

122 

107 

040 




012635 

127 

122 

111 




012640 

124 

124 

105 




012643 

116 

040 

064 




012646 

040 

124 

111 




012651 

115 

105 

123 




012654 

057 






2560 012655 

05 7 

040 

123 

MSG12: 

•ASCII 

1/ SSTP /I 

012660 

12 3 

124 

120 




012663 

040 

057 





2561 012665 

0 a 7 

040 

122 

MSG13J 

•ASCII 

1/ RNOM /l 

012670 

11 * 

104 

115 




012673 

040 

057 





2582 012675 

057 

040 

116 

MSG14J 

•ASCII 

1/ NSTP /| 

012700 

123 

124 

120 




012703 

040 

057 





2583 012705 

05 7 

115 

055 

MS615J 

•ASCII 

l/M-MAX/l 

012710 

115 

101 

130 




012713 

057 






2564 012714 

Q5 7 

115 

055 

MSG 16 ; 

•ASCII 

1/M-MIN/l 

012 717 

115 

111 

116 




012722 

057 






2585 012723 

057 

115 

111 

MSG171 

•ASCII 

I/MIN /I 

012726 

116 

040 

040 




012731 

0 5 7 






2566 012732 

05 7 

115 

101 

MSGie; 

•ASCII 

I/MAX /» 

012735 

150 

040 

040 




012740 

05 7 






2587 012741 

05 7 

100 

127 

MSG19: 

.ASCII 

1 /aWRITE ERRORS * /| 

012744 

122 

111 

124 




012747 

105 

040 

105 




012752 

122 

122 

117 




012755 

122 

123 

040 




012760 

075 

04 0 

057 




2588 012763 

05 7 

100 

122 

msg2o: 

.ASCII 

1/aRECOVERED AT 0 /I 

012 '66 

1U5 

103 

117 




012771 

126 

105 

122 




012774 

1U5 

104 

040 




012777 

m 

124 

040 




013002 

060 

040 

057 




2589 013005 

05 7 

100 

120 

mSG2ca: 

•ASCII 

1/aPLRMANENT BADSPOTS 

013010 

1 U 5 

122 

115 




013013 

1 U1 

116 

105 




013016 

116 

124 

040 




013021 

102 

xoi 

104 




015024 

123 

120 

117 




013027 

1*4 

123 

040 




013032 

0 75 

040 

057 




2590 013035 

057 

100 

12 ? 

HS62i: 

•ASCII 

1/iREAD STATUS ERRORS 
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013040 

103 

101 

104 




013043 

040 

123 

124 




013046 

lui 

124 

125 




013051 

1*3 

040 

105 




013054 

lc2 

122 

117 




013057 

122 

123 

040 




013062 

0 75 

040 

057 



2591 

013065 

0 3 7 

100 

104 

MSG22S 

.ASCII 


013070 

lul 

124 

101 




013073 

040 

105 

122 




013076 

1*2 

117 

122 




013101 

1*3 

0 41) 

075 




013104 

04 0 

057 




2592 

013106 

03 7 

100 

116 

MSG231 

.ASCII 


u 1 31 11 

117 

116 

040 




013114 

1*2 

105 

103 




013117 

117 

126 

105 




013122 

1*2 

101 

10 ? 




013125 

114 

105 

040 




013130 

1 n 5 

122 

122 




013133 

117 

122 

123 




013136 

040 

075 

040 




013141 

037 





2593 

013142 

057 

100 

052 

MSG24S 

.ASCII 


013145 

Q 32 

052 

032 




013150 

032 

052 

0 32 




013153 

052 

052 

052 




013156 

0^2 

052 

05? 




013161 

032 

052 

052 




013164 

032 

052 

052 




013167 

032 

127 

122 




013172 

HI 

124 

105 




013175 

040 

120 

101 




013200 

1*3 

1*3 

040 




013203 

040 

057 




2594 

013203 

007 

100 

05? 

HS025I 

.ASCII 


013210 

032 

052 

052 




013213 

03 2 

052 

032 




013216 

032 

052 

052 




013221 

Ot-2 

052 

032 




013224 

032 

052 

052 




013227 

03 2 

052 

052 




013232 

032 

122 

105 




013235 

m 

104 

040 




013240 

1*0 

101 

123 




013243 

1*3 

040 

040 




013246 

040 

057 




2595 

013250 

03 7 

040 

040 

MSG261 

.ASCII 


013253 

C4Q 

062 

060 




01325b 

06 0 

057 




2596 

013260 

037 

040 

040 

MSG27S 

.ASCII 


013263 

04 0 

065 

065 




013266 

066 

05? 




2597 

013270 

03 7 

040 

040 

MSG28 l 

.ASCII 


013273 

040 

070 

060 




013276 

0 ° 0 

057 




2598 

013300 

057 

040 

0 40 

MSG29! 

.ASCII 


i/aoATA errors = /t 

I/3N0N RECOVERABLE ERR RS * /! 

|/a************<******* WRITE PASS /I 


i/s»»********»«*****»» read pass n 


1/ 200/t 

\ 

1/ 556/1 

»/ aoo/i 

1/ CD /i 




P468 


MACRO VO6-03 12-DEC-74 12*24 PAGE 1-49 


013303 

040 

103 

104 

013306 

040 

057 


2599 013310 

0^7 

100 

100 

013313 

100 

057 


2600 013315 

0^7 

130 

040 

013320 

040 

040 

130 

013323 

0t>7 




2601 

2602 013324 0133*4 

2603 OOOOUl* 


MSG30S 

• ASCII 

i/aaa/t 

MSG31S 

• ASCII 

l/X X/l 


• EVEN 


buffer: 

• 

1 WRITE BUFFER BtGINS HERE 


.END 



"1 
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SYMBOL 

TABLE 





ALLEOS 

004422 

ALLEOT 

004400 

ALL1 

004402 

AlL2 

004504 

ALL3 

004500 

AT ST 

000256 

AUTOST 

001152 

BACK1 

010032 

BC 

000220 

BLKINC 

000310 

BUFFER 

013324 

C A 

000222 

CC 

000230 

CCMENO 

004474 

CDR1VE 

000302 

CDRVBT 

000300 

CHGOR 

004304 

CHGORV- 

104422 

CHG1 

004330 

CLRAL 

004070 

CLRALL- 

104420 

clrtbl 

004506 

cum 

004512 

CLP 1 

004072 

COMAND 

000276 

CTRDEX 

004044 

CTROMP 

004442 

crnoi 

004470 

DAERRS 

000346 

OATFKR 

007556 

OATER1 

007616 

OECOUT 

011432 

UtCPNT 

011512 

OECPR 

011336 

OECP«T= 

104426 

DEC l 

011460 

orca 

0114 74 

0ET7T 

002120 

OET7T1 

002132 

OET7T2 

002150 

0ET7T3 

002164 

U16CNT 

011506 

OIGIT 

011504 

OOAGN 

002774 

DOLLK1 

007300 

00LLR5 

007440 

BONE 

002704 

DONE 1 

002746 

ORVAOR 

000360 

orvsel 

000264 

OOTAB 

000450 

01 TAB 

000514 

D2TAB 

000560 

D3TAB 

000624 

04 TAB 

000670 

05 T AB 

000734 

06TAU 

001000 

07TAH 

001044 

ENOADR 

002764 

EAlOTAP 

005530 

CW0T1 

005542 

EOMK 

011664 

ERROR 

005300 

ERR 1 

005322 

EXEC 

002614 

EXECUT 

002602 

EXfCl 

002622 

GENP 

011736 

GENPT = 

104442 

G£NPT7s 

104416 

GENPT9s 

104432 

GENP7 

006014 

GCNP9 

006506 

GOBKwD 

010540 

GOBI 

010564 

GOB 2 

010636 

G0B3 

010652 

GOWA1T 

004532 

GW1 

004566 

G1 

011772 

G2 

012004 

HINUM 

007262 

IOSELF 

001410 

lasrcr 

000342 

length 

000270 

LONUM 

007260 

LOOPLR 

001476 

MA>lEN 

000244 

MEM4K 

001552 

MtHftK 

001556 

MINLEN 

000246 

MODES 

000356 

MSB ITS 

000272 

MS&O 

012072 

MSG1 

012077 

MSG10A 

0X2502 

M *> G10 B 

012604 

MS61I 

012627 

MSG12 

012655 

MSG13 

012665 

MSG14 

012675 

MSG15 

012705 

MSG lb 

012714 

MSG17 

012723 

MSG 16 

012732 

MSG19 

012741 

MSG2 

012120 

MSG20 

012763 

MSG20A 

013005 

MSG21 

013035 

MSG22 

013065 

MSG23 

013106 

MSG24 

01314? 

MSGJfiS 

013205 

MS oao 

013250 

MSG27 

013260 

MSG26 

013270 

MSG 2 9 

013300 

MSG30 

013310 

MSG31 

013315 

MSGS 

012160 

HSG6 

012205 

MSG 7 

012212 

MS66 

012240 

MSG9 

012346 

MSG9A 

012373 

MSG9B 

012416 

MTC 

000216 

MTS 

000214 

MTV 

000254 

MVCTft 

004026 

MVCTKSs 

104414 

MV 1 

004032 

NO INCR 

004660 

NONSTP 

004726 

NO * SEL 

001376 

NRREAD 

000350 

NUMTST 

001110 

NXMRtT 

001244 

NXT.TU 

001316 

OCT 

011320 

OC TP 

011322 

OCTPR 

011230 

OCTPRTs 

104412 

OCT 1 

011244 

OCT2 

011260 

0VER4K 

001252 

PARAM 

001112 

PATCK 

006054 

PATEN 

006074 

pateni 

006100 

PATEN2 

00611? 

PATEO 

006154 

PATE1 

0 06170 

PATE2 

00^220 

PATE3 

006234 

P A T E 4 

006250 

PATES 

006274 

PATE7 

006360 

PATOO 

006162 

PATOl 

006204 

PAT02 

006226 

PAT03 

006242 

PA 7 05 

006322 

PA7PNT 

006540 

PATPST 

006114 

PATO 

00b560 

PAV1 

006574 

patia 

006600 

PAT2 

006644 

P AT 3 

006660 
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SYMBOL 
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PAT3A 

006664 

PAT4 

006730 

PATS 

006756 

P A T ‘5 A 

006762 

PAT6 

006332 

PAT69 

007072 

PAT7 

007106 

PERM8S 

000334 

PEI 

006176 

PE5 

006302 

PFIL1 

006410 

PFIE3 

006422 

PFIL3A 

006430 

PFIL9 

006454 

PFIL9A 

006462 

p GMODE 

001146 

POl 

006212 

PQ5 

006330 

PRC s 

104434 

PR TO 

011020 

PRTOl 

011132 

PHIS 

010756 

PIT 

0 06622 

P3T 

006706 

P4 

006734 

P4A 

006754 

P5T 

007004 

RANDOM 

007256 

RAMGEN 

007126 

RANG1 

007154 

ranstp 

005110 

RANI 

005122 

NBUF 

000252 

rocrro 

007634 

RDl'RHS 

000344 

RDI NCR 

007762 

ROPASS 

000304 

RDSTP 

GO7540 

HUSTPC 

007500 

ROSTPO 

007306 

REAOGO 

007330 

RE ADI 

007264 

READlTs 

104424 

READEN 

000354 

README* 

010124 

RECORD 

00C336 

HESETL 

005254 

NESTKL 

010022 

RESTM 1 

010030 

REWIND 

004342 

RG1 

007340 

RWORDS 

007510 

HNOS1 

00752? 

RNDTAP 

010 0 76 

RNOTH1 

0 10 11 0 

RPASSl 

007736 

RPASS3 

007742 

RSFOR 

004124 

RSFDRV/- 

104410 

RSFl 

004136 

RSF2 

004162 

RSF 3 

004232 

H T SREC 

007674 

RT SRI 

007710 

RTSSTp 

007452 

SEEON1 

002264 

SEL0N2 

002300 

SEEON3 

002312 

SELORV 

001622 

SELOl 

001652 

SELD2 

001666 

SELOK1 

002574 

SEt.PAT 

002034 

SCLPR 

002236 

SELPHO 

002214 

SELHMi 

002460 

SELRM2 

0024 76 

SELR1 

002340 

SEI.R2 

002354 

SEER 3 

002366 

SEtTST 

001750 

selti 

001766 

SELT2 

002010 

SELT3 

002024 

SELW1 

002414 

SELW15 

002426 

SELW2 

002432 

SElMRKs 

104436 

SETMbK= 

104440 

SETSTK 

010750 

SET4K 

011666 

SET 6K 

011712 

SP3 = 

104430 

S p 3 A 

011572 

SP3X 

011562 

SR 

000232 

STACK = 

000450 

START 

0015o0 

START1 

001564 

STATRO 

000312 

STFLGS 

001150 

STOPOP 

005100 

STREC1 

005436 

strlen 

0 0 U 2 6 6 

STRTOP 

004720 

SVCTR 

0 0 4 01 0 

soctks= 

104406 

svci 

004014 

SvKECR 

000274 

TABLE 

012026 

TESINC 

C 0 52 06 

TESRC1 

005402 

Tt SREC 

005352 

TEST 

001116 

TESTO 

003004 

TEST1 

003052 

TEST2 

C 0 3 0 6 2 

Tfc ST 3 

003176 

TCST4 

003206 

TESTS 

003526 

1*0 

000236 

TkS 

000234 

TO 

011600 

TOP s 

104404 

TOPI 

01161? 

TOP 2 

011644 

TPB 

000242 

TPS 

000240 

TRAP34 

012006 

TSINC2 

005262 

TSINC3 

005276 

TST EX 

001114 

TSTHM 

010740 

TSTSTP 

005022 

TSTTRL 

001120 

TSTUM4 

010750 

TSTUP4 

010716 

TU.SEL 

001254 

TYPT1 

011360 

TYPT2 

011366 

TYPT3 

011422 

TO 

003014 

TOA 

003016 

TUB 

003034 

TPlENT 

003012 

T 2 

00-50 7? 

T 2 A 

003074 

T20 

003112 

T2C 

0 0 31 16 

T20 

003136 

T2E 

003142 

T2F 

003156 

T23ENT 

003070 

V 4 

003240 

T4A 

003242 

T4B 

003244 

T4C 

00.3270 

T4D 

00327? 

T4E 

003324 

14F 

003340 

T4G 

003356 

T4H 

003360 

T4J 

003376 

T4K 

003404 

T4E 

003406 

T4M 

003460 

T4N 

003472 

T 4P 

003476 

T5 

003536 

T5 A 

003562 

T5B 

003574 
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T5C 

003604 


T50 

003634 

T5E 

003642 

T5F 

003704 


T5FLAG 

004004 

T5G 

003716 

T5M 

003734 


T5INC 

004006 

T5J 

003736 

T5K 

003756 


USSTST 

001330 

USS # OK 

001346 

USS10 

003 372 


VALIO 

0016/6 

vali 

001710 

V AL2 

001720 


V AL 3 

001734 

VAL4 

001740 

waitk 

011526 


WAITK y = 

104400 

wBUF 

000250 

WKCHCK 

000314 


WRITI 

004570 

WR1TIT= 

: 104402 

*'RP ASS 

000306 


WRRF.CR 

000340 

WRTDMP 

005556 

WRTGl 

005734 


WK1 02 

005756 

WKTt.LN 

000352 

Ml 

004636 


W10 

005066 

Wll 

0 0 514 0 

Wl2 

005174 


W3 

004704 

XRGRCO 

010434 

XRGREC 

010322 


XR60 

010330 

XRG5 

010442 

ZERO 

011510 


ZEHOOO 

001516 



. ABS, 

01332b 

ooo 






oooooo 

oul 





ERRORS 

OtUCTEu: 

0 






FREE COKE; 10314. WU*DS 
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CROSS RLFERlNCE TABLb S-l 


ALLEOS 

1*1551 

1-15554 






ALLCOT 

1-1306 

1-1340 

1-1411 

1-1452 

1-1464 

1-15484 


ALL 1 

1-15494 

1-1553 






ALL2 

1-1556 

1-1358 

1-15714 





ALL3 

1-1554 

1-13704 






A 1 ST 

1 - 9 064 

1- 983 3 

1-10683 

1-1091 




AUTOST 

1- 085 

1 - 9024 






BACK1 

1-1706 

1-1/07 

1-2176 

1-21964 

1-2258 



GC 

1- 8904 

i -1 o 11 a 

1-16123 

1-17113 

1-21043 

1-21053 

1-21983 


1-22633 

1-2*645) 

1-229851 

1-22993 

1-23003 



8 LKINC 

1- 9194 
1-2188 

1-1*913 

1-15955) 

1-15993 

1-1666 

1-1668 

1-2185 

BUFFER 

1- 902 

1 - 903 

1- 992 

1-10403 

1-1041 

1-1059 

1-2502 


1-2506 

1-28024 






C A 

1- 8914 

1 -16136* 

1-21063 

1-22653 




cc 

1- 8944 

1-15803 

1-15845) 





COMEND 

1-1566 

1-13684 






CORIVE 

1- 9164 

1-1484 

1-1485 

1-14993 

1-15033 

1-1507 

1-15283 

CORVBT 

1- 5154 
1-2304 

1-13003 

1-1501 

1-15053 

1-15Q9 

1-15303 

1-1535 

CHGDR 

1-15284 

1-1336 

1-2536 





CHGDRV 

1-1304 

1-13 24 

1-1331 

1-1338 

1-1362 

1-1373 

1-1380 


1-1338 

1 -1 4 Oh 

1-1409 

1-1436 

1-1450 

1-1460 

1-1493 


1-1532 

1-1368 

1-25544 





CHG1 

1-1531 

1-13354 






clral 

1-14894 

1-2335 






CLRALL 

1-1297 

1-1317 

1-1357 

1-1420 

1-25534 



CLRTBL 

1-1491 

1-13734 






CLRT1 

1-15744 

1-13/6 






CLR 1 

1-14904 

1-1494 






COMAND 

1- 9144 

1-13073 

1-15085) 

1-15113 

1-15143 

1-15183 

1-15213 


1-15243 

1-1341 

1-1601 

1-1712 

1-2094 

1-2107 

1-2199 


1-2261 

1-2305 

1-23095) 

1-23133 

1-2314 

1-2361 

1-2374 

CTROEX 

1-1470 

j -1 4 76 

1-14824 





C TRHMP 

1-15604 

1-1369 






CTRfJl 

1-1563 

1-13674 






OAFRRS 

1 - 9 3 4 4 

i-?i 37 ;a 

1-2244 






OATfRR 

1-2122 

oateki 

1-2146 

oecout 

1-2438 

DECPNT 

1-24313 

QECPR 

1-2430# 

OECPRT 

1-1031 

1-2241 

DEC 1 

1-2446 

OEC2 

1-2450 

Ot T7T 

1-1148# 

0ET7T1 

1-1150# 

0ET7T2 

1-1151 

0ET7T3 

1-1154 

OlGChT 

1-24303 

DIGIT 

1-24333 

DOAGN 

1-1284 

oollri 

i 

o 

o 

00LLR5 

1-2121# 

DONE 

1-1273# 

oonei 

1-1276 

OHVADR 

1- 939# 


1-2145# 

1-2155# 

1-2445# 

1-2435 

1-2437 

1-2^38 

l-lt33 

1-1738 

1-2245 

1-2249 

1-2448 

1-2451# 

1-2453# 
1-llfcl 
1-1J 53 
1-1155# 
1-1156 

1-1156# 

1-2*393 

1-2447 

1-24343 

1-2445 

1-1**2# 

1-2193# 

1-2 J24 
1-1508 

1-1342 

1-1*30 

1-1283# 

1-1412 

1-1478 


1 -24433 1-2459# 

1*1755 1-1769 

1-2354 1-2356 


1-2457# 

1-24493 1*24523 

1-1413 1-1454 

1-1483 


1-1774 1-2224 

1-2556# 

1-2453 1-2456# 

1-1466 
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ORVSLL 

1 - 909# 

1-1U043 

1-1010 

1*10233 

1-11463 

1-1148 

1-11583 

OOTAB 

1- 939 

1 - 949# 

1- 950 





OITAB 

1- 940 

1- 951# 

1- 952 





02TAB 

1- 941 

1- 953# 

1- 954 





03TAD 

1- 942 

1 - 955# 

1- 956 





04TAB 

1- 943 

1 - 957# 

1- 958 





Ob TAB 

1- 944 

1 - 9d9# 

1- 960 





06 TAB 

1- 945 

1 - 961# 

1- 962 





D7TAB 

1- 946 

1 - 963# 

1 - 964 





ENDADR 

1-1266 

1.1*36# 






ENDTAP 

1-1663 

1-1/04 

1-1719# 





EnDT 1 

1-1564 

1-1 '21# 






EOMK 

1-24823 

1-2483 

1-2499# 





ERROR 

1-1619 

l-ltS2# 






ERR 1 

1-1605 

1-1687# 






EXtC 

1-1256# 

1-1293 






EXECUT 

1-1061 

1-1033 

1-1117 

1-1254# 




EXEC1 

1-1257# 

1-1282 






SENP 

1-2509# 

1-2044 






GfNPT 

1-16G4 

1-2*08 

1-2562# 





GCNPT7 

1-2515 

1-2 wi»2# 






GEf PT9 

1-2519 

1-2356# 






GENP7 

1-1776# 

1-2534 






GENP9 

1-1925# 

1-2540 






60DKWD 

1-1329 

1-1^36 

1-2293# 





GOBI 

1-2295 

1 -2* 98# 






6 C02 

1-2306 

1 -2^11# 






6003 

1-2306 

1-2510 

1-2312 

1-2314# 




G0WA1T 

1-1545 

1-1^30# 

1-1615 

1-1714 

1-2110 

1-2201 

1-2268 


1-2290 

l-2^?i 






Swl 

1-1561 

1-15536# 






61 

1-2512 

1-2^17# 






62 

1-2514 

1-2^16 

1-2520# 





Hlfy/UM 

1 - 969^ 

1 -lt na 

1-2057 

1-2067 

1-20793 

1-2068# 

1-25103 

IOSELF 

1-1009 

1 -1126# 






LASRCR 

1- 932# 

1-12*4 

1-1396 

1-13993 

1-14003 

1-14023 

1-1407 


1-14333 

1-14343 

1-1442 

1-14453 

1-14463 

1-14483 

1-1457 


3-2120 

1-2141 

1-2293a 

1-2298 




LENGTH 

1- 911# 

1-16*15) 

1-21493 

1-21663 

1-22823 

1-2355 


LONUM 

1- 9603 

i-iu 7oa 

1-2056 

1-2065 

1-20763 

1-2087# 

1-25093 

LOOPER 

1-1047# 

1-10 56 






MAXLEN 

1- 900# 

1-1032 

1-1590 

1-1671 

1-2191 

1-25013 

1-25053 

MEM4K 

1 - 686 

1-1064# 






MEM8K 

1- 687 

1-1067# 






MINLEN 

1- 901# 

1-1030 

1-1594 

1-1669 

1-2169 

1-25003 

1-25043 

MOOES 

1- 938# 

1-12545) 

1-12963 

1-1300 

1-13113 

1-13163 

1-1320 


1-1327 

1 - 1 A 34 

1-13473 

1-13523 

1-13553 

1-13563 

1-13643 


1-1367 

1-1^75 

1-1378 

1-1334 

1-1392 

1-14193 

1-1423 


1-14283 

1-1431 

1-1440 

1-14593 

1-1462 

1-14953 

1-1550 


1-1557 

1-1065 

1-1575 

1-15773 

1-1632 

1-1634 

1-1637 


1-1655 

1-1057 

1-1660 

1-16653 

1-16763 

1-1699 

1-17203 


1-22063 







MSBITS 

1- 912# 

1-10063 

1-1U223 

1-1034 

1-1047 

1-10743 

1-1079 


1-1099 

l-ima 

1-11033 

1-1501 

1-1535 

1-2338 


MSGO 

1-1122 

1-2064# 






MSG 1 

1-1072 

1-2^65# 






MSG 10A 

1-1028 

1-2^75# 






MSG10B 

1-1030 

!~2*»78# 








CROSS R£F£fl£NC£ TAt»L£ S-3 


HSGU 

1-2284 

1-2^79# 


MSG12 

1-1732 

1-2*18 

1-2580# 

MSG13 

1-1735 

1-2*21 

1-25B1# 

MSG14 

1-1729 

1-2*15 

1-2582# 

MS615 

1-1747 

1-2*33 

1-2583# 

MSGlb 

1-1750 

1-2*36 

1-2584# 

MSG17 

1-1741 

l-2i.27 

1-2585# 

MSGlU 

1-1744 

1-2*30 

1-2586# 

MSG 19 

1-1752 

1-2057# 


MSG 2 

1-1108 

1-2056# 


MSG20 

1-17573 

l-i i 5na 

1-1761 

MSG20A 

1-1771 

1-2389# 


MSG21 

1-2238 

1-2090# 


MSG22 

1-2242 

1-2691# 


MSG23 

1-2246 

1-2^92# 


MSG24 

1-1721 

1-2593# 


MSG25 

1 -2207 

1-2^9## 


MSG 26 

1-2390 

1-2095# 


MS627 

1-2393 

1 - 2 9 6 # 


MSG28 

1-2396 

1-2097# 


MSG29 

1-2399 

1-2396# 


MSG30 

1-1273 

1-2^99# 


MSG31 

1-1164 

1-2379 

1-2600# 

MSGS 

1-1251 

1-2067# 


MSGS 

1-1234 

1-2^68# 


MSG7 

1-1689 

1-2*80 

1-2569# 

MSGft 

1-1723 

1-2*09 

1-2570# 

MSG 9 

1-2164 

1 -237?# 


•M S G 9 A 

1-2147 

1-2573# 


MSGSb 

1-2346 

1-2^74# 


MIC 

1- 809# 

1-10033 

1-1008 


1-15443 

1-15825 

1-16013 


1-17133 

1-1 i 153 

1-17163 


1-2114 

1-2199a 

1-22003 


1-2271 

1-2*865) 

1-22893 


1-2348 

i-2^/43 

1-2375 

MTS 

1- 688# 

1-1012 

1-1017 


1-16092 

1-1^17 

1-1708 


1-2270 

1-23175 

1-2377 

MTV 

1- 904 # 

1-1*- 813 


MVCTR 

1-1476# 

1-2533 


MVCTRS 

1-1299 

1-1319 

1-1326 


1-1383 

1-1391 

1-1406 


1-1561 

1-2^31# 


MV1 

1-1477# 

1-1479 


WOINCR 

1-1589 

l-109ft 

1-1600# 

WONSTP 

1-1611# 

1-1630 

1-1635 

WO.SI L 

1-1016 

1-1018 

1-1023# 

NIRRFAD 

1- 935# 

1-21 765) 

1-2248 

NUMTST 

1- 965# 

1- *3751 

1-11103 

WVMRT T 

1- 991 

1- 4 94# 


NXT.TU 

1-1010# 

1-1026 


OCT 

1-24105. 

l-24205i 

1-2424# 

OC TP 

1-2425# 

1-2341 


OCTPR 

1-2403# 

1-2332 


OCTPHT 

1-2152 

1-2154 

1-2349 

OC T 1 

1-2405 

1-2407# 



1*2568* 


l-ioioa 

1-11403 

1-1539 

1-15413 

1-1602 

1-16143 

1-1616 

1-17123 

1-20943 

1-2095 

1-21073 

1-21093 

1-22023 

1-2259 

1-22613 

1-22623 

1-23143 

1-2315 

1-23193 

1-23203 

1-1019 

1-1150 

1-1155 

1-15423 

1-20973 

1-2511 

1-2113 

1-21963 

1-22663 


1-1333 

1-1359 

1-1366 

1-1377 

1-1430 

1-1439 

1-1456 

1-1549 


1-1638 

1*1115 1-12473 1-1248 1-12833 


1-2351 1-2550* 



CROSS REFERENCE TABLE S-4 


0VER4K 

1- 993 

1- 9974 


PARAM 

1- 9661* 

1-1*560 

1-1257 


1-1516 

1-1^19 

1-1522 


1-1727 

1-1/39 

1-1780 


1-2131 

1-2*13 

1-2225 

PATCH 

1 -1705 

1-17894 


PATEN 

1-1790 

1-1/934 


PATEN1 

1-1754** 

1-1/9f 


PATEN2 

1-1792 

1-1/974 


PATEO 

1-1790 

1-1^164 


PATE1 

1-1000 

1-10*34 


PATE2 

1-1002 

1-10364 


PATE3 

1-1004 

1-10*34 


PATf 4 

1-1006 

1-10504 

1-1856 

PATE5 

1-1608 

1-10&24 


P A T E 7 

1-1012 

1-1O904 

1-1892 

PATOO 

1-1799 

1-10194 


pa roi 

1-1001 

1-10294 


P A T02 

1-1603 

1-10394 


P A1 03 

1-1005 

1-10464 


PATOb 

1-1009 

1-16734 


PATPNT 

1-1930 

1-19524 


patpst 

1-1764 

1-1/984 


PATO 

1-1932 

1-19424 

1-1944 

P A T1 

1-1933 

1-19464 

1-1955 

PAT1 A 

1-19494 

1-1954 


PAT 2 

1-1934 

1-1903 

1-19674 

PATS 

1-1935 

1-39734 

1-1980 

PATSA 

1-19744 

1-3979 


PAT4 

1-1007 

1-1936 

1-1978 

P A T 5 

1-1937 

1-20014 

1-2008 

PAT5A 

1-20024 

1-2 o07 


PATb 

1-1010 

l-mi 

1-18864 

PAT69 

1-1930 

1-2006 

1-20384 

PAT7 

1-1013 

1-1939 

1-20*44 

PC 

1- 075** 

1-1*963 

1 -1 3 U 6 3 


1 -14 2 5 cl 

1-1*523 

1-1*640 


l-1467o] 

1-1*903 

1-1*913 


1-1545* 

1-10463 

1-15643 


1 -160 7a) 

l-lblb3 

1-16313 


1-1659S 

1 -1 o £>23 

1-16770 


1-17140 

1-1/260 

1-17700 


1-10900 

1-10*60 

1-19013 


1-19520 

1-19 70oi 

1-19773 


1-20480 

1-20340 

1-21100 


1-21430 

1-21500 

1-21673 


1-22050 

1-22 120 

1-22500 


1-2290* 

1-22910 

1-22963 


1-23220 

1-23*00 

1-2 3*23 


1-24260 

1-2*380 

1-2*423 


1-25030 

1-2PO70 

1-25160 

PERMBS 

1- 9294 

1-10960 

1-1766 

PEI 

1-1023 

1-10254 


PE5 

1-1062 

1-10644 


PFILl 

1-3017 

1 -10 2 0 

1-1837 


1-10984 

1-1900 


PFIL3 

1-3024 

1-loSO 

1-19034 

PFIL3A 

1-19054 

1-1*12 



1-1277 

1-12813 

1-1397 

1-1443 

1-1592 

1-1597 

1-1627 

1-1640 

1-1799 

1-1791 

1-1927 

1-2125 

1-23&7 

1-2383 

1-2388 


1-1657 




1-1895 





1-1969 

• 



1-19924 




1-2040 




1-2047 




1-13290 

1-13400 

1-13860 

1-14110 

1-14700 

1-14740 

1-14760 

1-14800 

1-14970 

1-15153 

1-15250 

1-15340 

1-15670 

1-15710 

1-15783 

1-15853 

1-16360 

1-U390 

1-16453 

1-16540 

1-16920 

1-17013 

1-17060 

1-17070 

1-17750 

1-17860 

1-17973 

1-18543 

1-19083 

1-19190 

1-19310 

1-19450 

1-19970 

1-20030 

1-20410 

1-20440 

1-21270 

1-21303 

1-21333 

1-21403 

1-21760 

1-219*3 

1-22013 

1-22033 

1-22580 

1-22683 

1-22743 

1-22833 

1-22973 

1-23073 

1-23113 

1-23213 

1-23570 

1-23820 

1-24010 

1-24230 

1-24550 

1-2*730 

1-24773 

1-24853 

1-25200 

1-25263 



1-1773 




1-1840 

l-ie44 

1-1847 

1-1887 





Pfi- 1 ^9, 

i r l£64< 

lrlKH*. 

*rWIMfci 

Pf IC9A, 

lr 10164 

lflf*2S 


PGMODE' 

l r 960# 

lrij^Sa, 

irWW 

POli 

1-1829 

IrlMl#,, 


P05 

1 r 16 7 3 

l r lt>754 


PRC 

1-1069 

1-1105 

l r 2360 


1-2418 

1-2434 

1-2494 

PrtTD 

1-1726 

1-2212 

1-23594 

PHTD1 

1-2376 

1-2^834 


PR TS 

1-1692 

1-2150 

1-2167 

PIT 

1-1948 

l-1^5f4 


P3T 

1-1973 

1-19914 


P4 

1-19934 

1-1096 


P ‘4 A 

1-19923 

1-1^93 

t-19943 

P5T 

1-2001 

1-20094 


RANDOM 

1-16463 

l-ifooa 

1-1891 


1-21343 

i-2i3ea 


RANGEN 

1-164 5 

1-lti 90 

1-2044 

RANG1 

1-20604 

1-2064 


RANSTP 

1-16454 



RANI 

1-164 /« 

1-1651 


RHUF 

1- 9034 

1-1795 

1-1852 


1-1943 

1-1950 

1-1968 


1-2046 

1-2699 

1-2106 

ROERKO 

1-2115 

1-21604 


ROERRS 

1- 9334 

1-21713 

1-2240 

RO1NCR 

1-2127 

1-2140 

1-2184 n 

RDPASS 

1- 9174 

1-2^933 

1-2155 

ROSTP 

1-2132 

1-21404 

1-2182 

ROSTPC 

1-2126 

1-21314 


ROSTPD 

1-20944 

1-214 2 

1-2177 

READGO 

1-20994 

1-2129 


RE AO I 

1-20904 

1 - 2 3 7 


RE ADIT 

1-1336 

1-1401 

1-1447 

RE Al)LN 

1- 9374 

1-20 923 

1-2100 


1-23 ftfto) 

1-2109 

1-2191 

READNP 

1-22124 



RECORD 

1- 9304 

1-1560 

1-1394 


1-1433 

1-1445 

1-1457 


1-1719* 

1-1/37 

1-2090 


1-2293 

1-22943 

1-2352 

Rf.SETL 

1-1670 

1-lt 734 


RESTRL 

1-2190 

1-21934 


RESTR1 

1-2166 

1-2-92 

1-2194# 

REWIND 

1-1490 

1-1-394 

1-2296 

RG1 

1-21014 

1-2x03 


RNDRDS 

1-21334 



RN3S1 

1-21354 

1-2139 


RNPTAP 

1-2161 

1-2*054 


RNDTP1 

1-1567 

1-2151 

1-2207# 

RPASS1 

1-2175 

1-2 ± 704 


RPASS3 

1-2173 

1-2-794 


RSE r R 

1-14994 

1-2* 31 


RSFDRV 

1-1298 

1-l^ifl 

1-1358 


1-1438 

1-1'* 55 

1-1489 

RSF1 

1-15014 

1-1-06 


RSF2 

1-1502 

1-1-074 

1-1537 

RSF 3 

1-1510 

1-1^164 







1 r ? 3 6 5 
1^2496 

l r 237 2 
lr2559# 

1,-2387 

4-M.P7, 

1-2283 

1-2346# 



1-1998# 




1-1893 

1-2045 

1-20773 

1-2006# 

1-2052# 

1-2133 



1-1894 

1-1975 

1-2118 

1-1899 

1-1995 

1-25023 

1-1906 

1-2003 

1-25063 

1-1917 

1-2039 

1-2205 

1-2169 

1-21743 

1-21793 



1-2555# 




1-2104 

1-2120 

1-2149 

1-2166 

1-21933 




1-1399 

1-1407 

1-1426 

1-14273 

1-1588 

1-1600 

1-16643 

1-1674 

1-2128 

1-2141 

1-21843 

1-2223 


1-1365 1-1362 1-1390 1-1429 

1-1532 1-1548 1-1560 1-2549# 
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.. CROSS REFERENCE TABLt S-7 


S£LDN3 

1*116$ 

1-1178 

1-1162 

1 -110$ 

1-1190# 



SfLORV 

1-1076# 

1 -110$ 






SO.D1 

1-1076 

1-1004# 






SCL02 

1-1065 

1-1058# 






SELOK1 

1-1249 

1-1*51# 






StLPAT 

1-1121 

1-1125# 






SLLPR 

1-1170 

1-U 74# 






SfLRPO 

1-1163 

1-li60# 






StLRMl 

1-1225 

1-1 * 20# 






S5LR7 2 

1-1223 

1-1*27 

1-1232# 





, StLRl 

1-1196 

1 -1^99# 






SELR2 

1-1200 

1-1*03# 






SCLR3 

1-1194 

1-U90 

1-1202 

1 -120$# 




StLTST 

1-1062 

1 -1100# 






SELT1 

1 -1112# 

1-1124 

1-1250 





SELT2 

1-1114 

1 -1U0# 






St LT3 

1 -111$ 

1-1119 

1 -1122# 

1-1136 

1*1136 

1-1172 

1-1188 


1-1204 

1-1-17 

1-1230 

1-1239 




SELWl 

1-1212 

1-U15M 






Sf-LWl j 

1-1216 

1-1*16# 






SUM?. 

1-1210 

1-U 14 

1-1219# 





StTMHK 

1 - 595 

1-1064 

1-2660# 





, , SUlMOK 

1 - 597 

1-U 67 

1-2561# 





SETSTK 

1-2339 

1-2341# 






sctmk 

1-2500# 

1-254? 






SET6K 

1-2504# 

1-2-43 






$p 

1- 674a 

1- '3?3 

1- 994 

1-10693 

1-15333 

1-17853 

1-20523 


1-20533 

1-2054S 

1-20553 

1-2000 

1-2081 

1-2082 

1-2083 


1 -2341 a) 

1-2*322 

1-25233 

1-25253 




SP3 

1-1132 

1-1143 

1-1174 

1-1190 

1-1206 

1-1219 

1-1232 


1-2366 

U2^73 

1-2301 

1-2422 

1-2441 

1-2557# 


SP3A 

1-2475 

1-2* 76# 






SP3X 

1-2473# 

1-2559 






SR 

1- 699# 

1-1*- 753 

1-1512 

1-1555 

1-1687 

1-1693 

1-2145 


1-2162 

1 -2172 

1-2256 





STACK 

1- 947# 

1 - 9 62 

1-1069 





START 

1-1065 

1 -1060# 






STARTX 

1-103$ 

1-1069# 

1-1000 





STATRD 

1- 920# 

1-16173 

1-1602 

1-1703 

1-21133 

1-2160 

1-2160 


1-2270* 

1-22 75 

1-2286 

1-2350 




STFLGS 

1- 961# 

1-16053 

1-10213 

1-10753 

1-11573 

1-1162 

1-1509 

SfOPOP 

1-1626 

1 ~U 40# 






STRt Cl 

1-1697 

1-1706# 






STRLEN 

1- 910# 

1-10903 

1-15943 

1-159$ 

1-1673 

1-2092 

1-2193 

STRTOP 

1-1609# 

1-1653 

1-1656 

1-1661 

1-1710 

1-1717 


SVC TR 

1-1470# 

1 -2:30 






,h SvCTRS 

1-1303 

1-1-23 

1-1330 

1-1337 

1-1361 

1-1372 

1-1367 


1-1403 

1-1455 

1-1449 

1-1492 

1-2548# 



SVC 1 

1-1471# 

1-1*73 






SVRCCR 

1- 913# 

1-U 693 

1-1371 

1-13963 

1-1402 

1-14423 

1-1448 

TABLE 

1-2525 

1-2:27# 






TESIMC 

1-1425 

1-1631 

1-1654 

1-1664# 




TTSKCl 

1-1694 

1-U99# 






TfSRLC 

1-1660 

1-U 93# 






TEST 

1- 966# 

1-U 603 






TESTO 

1-1261 

1-1*96# 






TLST1 

1-1263 

1 -1 $ 11# 






Tf ST2 

3-1265 

1-U 16# 







A 



CROSS R£F£RENCfc TABL L S-fi 


TEST3 

1-1267 

1-13474 





TEST4 

1-1271 

1-13524 





TF.ST5 

1-1270 

1-14194 





TKP 

1- 8974 

1-24 70 

1-2471 




TKS 

1- 0964 

1-2466 





TO 

1-24814 

1-2-29 





TOP 

1-1029 

1-1039 

1-1060 

1-1073 

1-1109 

1-1123 


1-1235 

1-1*52 

1-1274 

1-1690 

1-1722 

1-1724 


1-1751 

1-1/53 

1-1762 

1-1772 

1-2148 

1-2165 


1-2210 

1-2*22 

1-2237 

1-2239 

1-2243 

1-2247 


1-2205 

1-2347 

1-2360 

1-2400 

1-2476 

1-25474 

topi 

1-24034 

1-2491 

1-2490 




TOP2 

1-2487 

1-2^934 





TPB 

1- 8994 

1-1^423 

1-12453 

1-24273 

1-24703 

1-24903 

TPS 

1- 8984 

1-1^40 

1-1243 

1-2425 

1-2468 

1-24813 

TKAP34 

1- 883 

1-25224 





TSINC2 

1-1167 

1-1^72 

1-16744 




TSINC3 

1-1675 

1-lt 774 





TSUX 

1- 9674 

1-1*153 

1-1256 

1-12923 

1-1353 


TSTPM 

1-2333 

1-23384 





T s T S T P 

1-1621 

1-1^274 





TSTTBt 

1- 9694 

1- 9843 

1- 9653 

1- 9963 

1-1111 

1-1235 


TS7UK4 1-2311 1-23344 

TSTUP4 1-2307 1-23298 

TU.SLt 1- 996 1-1^024 

TVPT1 1-24334 1-2*44 

TrPT2 1-24344 1-2436 

TTPT3 1-2440 1-2*434 

» i 4 T0 1-12984 1-1^07 

TOA 1-12994 1 - 1 3 05 

TOb 1-1301 1-1-044 

T 01 ENT 1-1297« 1-1-12 

T2 1-13184 1-1-41 

T2A 1-13194 1-1-25 

T2B 1-1321 1-13244 

T 2 C 1-13264 1-1-32 

T2D 1-1328 1-13314 

T?£ 1-13334 1-1339 

T2F 1-1335 1-13374 

T23ENT 1-13174 1-1340 

* ► ,T4 1-1354 1-13374 

T4A 1-13584 1 - X ** 12 

T4B 1-13594 1-1363 

T4C 1-13634 1-1379 

T40 1-13664 1-1374 

T4£ 1-1368 1-1-734 

T 4P 1-13 774 1-1381 

T4G 1-1376 1-13824 

T4H 1-13834 1-1389 

T4J 1-1385 1-12974 

T4K 1-13904 1-1*06 

T4t 1-13914 1-1*05 

T4M 1-1398 1-1^014 

T4N 1-1393 1-1395 1-14044 

T4P 1-14064 1-1*10 

T 5 1-14214 1 - !'♦ 65 

T5A 1-1424 1-1*264 

T5B 3-14264 


1-1165 

1-1736 

1-2200 

1-2281 


1-2460 




CROSS REFERENCE TABLt S»9 


rse 

1*1430# 

1-1437 






T50 

1*1432 

1-1*364 






T5E 

1-14394 

1-1*01 

1-1463 





T5F 

1-1444 

1-1*474 






T t>FLAd 

1-14218 

1-1*674 

1-14968 

1*1562 

1-1605 



T56 

1-1441 

1-1^504 






T5H 

1-14*53 

1-1-554 






T5IUC 

1-14268 

1-1*34 

1-14684 





T5J 

1-14564 

1-1*61 






T5K 

1-1456 

1-1*604 






USSTST 

1-10124 

1-U15 






USS «OK 

1-1013 

1-10174 






USSIO 

1-1020 

1-H>224 






VALIO 

1-1087 

l-lu92» 






VAtl 

1-10954 

1-1498 






V*L2 

1 - 1 0 f, 6 

1-10994 






VAt3 

1-1100 

1-U034 






v al4 

1-1090 

1-1i02 

1-11044 





waitk 

1-24664 

1-2^27 






yjAlTKY 

1-1076 

1-1112 

1-1134 

1-1166 

1-1176 

1*1192 

1-1206 


1-1221 

1-1236 

1-25454 





your 

1- 9024 

1-1*13 

1-1779 

1-1793 

1-1926 

1-2119 

1*2265 

WRCHEK 

1- 9214 

1-1*32 

1-1573 

1-1624 

1-16663 

1-1754 

1*1756 


1-1766 







writi 

1-15884 

1-2:28 






WRITIT 

1-1302 

1-1^22 

1-1370 

1-1422 

1-25464 



W«PASS 

l- 5ie« 

1-1O083 

1-1620 

1-1622 

1-16263 

1-1629 

1-1652 


1-1684 

1-H 95*3 

1-1696 

1-17028 

1-22558 

1-22738 

1-22778 

wrrfcr 

1- 9314 

1-1-603 

1-1369 

1-13718 

1-160C8 

1-2294 

1^2299 

WRHJrtP 

1-1 7264 







WR TUI 

1-17504 

1-1/67 






WHTU2 

1-17b0 

1-1/65# 






WRTLEN 

1- 9364 

1-10363 

1-1611 

1-16688 

1-1669 

1-1671 

1-16738 


1-1691 

1 - 2*’ 63 

1-2282 





Wl 

1-1593 

1-1-36# 






wio 

1-1633 

1-1037# 






Wl 1 

1-1641 

1-1* 524 

1-1705 





W12 

1-1656 

1-16604 






WJ 

1-16054 







XrtGRCO 

1-2257 

1-2-73# 

1-2276 





XR6REC 

1-1701 

1-2*554 

1-2287 





XR GO 

1-22564 

l~2*/8 






XHG5 

1-2272 

1-2*. 754 






zcro 

1 -?4 328 

1-2*49 

1-24518 

1-24584 



« 

ZFROOO 

1-1045 

1-10024 






• 

1- 8764 

1- “774 

1- 881 

1- 6824 

1- 6844 

1- 9484 

1* 9504 


1- 9524 

1- VDlifi 

1- 9564 

1- 9584 

1- 9604 

1- 9624 

1- 9644 


1-10 35 

1-1*29 

1-1238 

1-1241 

1-1244 

1-1269 

1-1513 


1-1517 

1-1520 

1-1523 

1-1540 

1-1543 

1-1603 

1-1606 


1-1610 

l-lo49 

1-1700 

1-1709 

1-1731 

1-1734 

1-1743 


1-1746 

1-1 '49 

1-1769 

1-1653 

1-1907 

1-1910 

1-1918 


1-1921 

1 - 1 9 D 1 

1-1976 

1-2004 

1-2096 

1-2098 

1-2137 


1-2156 

1-2170 

1-2197 

1-2217 

1-2220 

1-2229 

1-2232 


1-2235 

1-2*60 

1-2267 

1-2316 

1-2318 

1-2376 

1-2392 


1-2395 

1 - 2^96 

1-2426 

1-2459 

1-2467 

1-2469 

1-2484 


1-2489 

1-2^02 










CROSS REFERENCE TABLt- C-X 


• ABS. 


054496 

004406 


1 - M2 



APPENDIX A 


SAMPLE DRIVER PROGRAM 



SAMPLE MAGNETIC TAPE DRIVER PROGRAM 


FOR PDP-11 / LSI-11 


While the controller is compatible with existing software, 
this program illustrates an example of a magnetic tape driver 
program. For those customers who wish to create custom software, 
this driver can be a starting point for the tape handling portion 
of the program. 

A paper tape containing this program is available from Western 
Peripherals upon request. Ask for part number 130046. 



V** 


PROGRAM LISTING 


SAMPLE MAGNETIC TAPE DRIVER PROGRAM 
FOR PDP-11 / LSI-11 


. = 400 

MAGNETIC TAPE DRIVER CALLING SEQUENCES 

JSR R5»TAPRW TAPE READ OR WRITE 

SET IP WORD 

\ CORE START ADDRESS 

NUMBER. OF BYTES TO BE TRANSFERRED 

ERROR' RETURN ADDRESS 

RETURN FROM TAPRW SUBROUTINE 

JSR R5>SPACE SPACE FORWARD OR BACKWARD 

SETUP WORD 

NUMBER OF RECORDS TO BE SKIPPED C-=BACK> 

ERROR RETURN ADDRESS 
RETURN FROM SPACE SUBROUTINE 

JSR R5>WE0F WRITE AN END OF FILE 

SETUP WORD 

ERROR RETURN ADDRESS 
RETURN FROM WEOF SUBROUTINE 

JSR R5*0FLINE PUT DESIGNATED UNIT OFF LINE 

SETUP WORD 

ERROR RETURN ADDRESS 

RETURN FROM OFLINE SUBROUTINE 

JSR R5*REWIND REWIND DESIGNATED UNIT 

SETUP WORD 
ERROR RETURN ADDRESS 
RETURN FROM. REWIND SUBROUTINE 

JSR R5 -»CMPLTE C.OMP LETE PREVIOUS COMMAND 

ERROR' RETURN ADDRESS 
END OF FILS RETURN ADDRESS 
NORMAL RETURN 

JSR R5 * TAPSET TAPE SETUP 

SETUP WORD 

RETURN FROM TAPSET SUBROUTINE 
R3 = S3 

R4 = %4 
R5 = 

S? = *6 
PC = %1 
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TAPRW SUBROUTI NS 


TAPRW 

: JSR 

R4.CHECK 

JGET ARG AND CHECK READY 


.WORD 4 

;a arguments 


MOW 

ARRAY+2.1 72-52 6 

jcore start address into mtcma 


NEC 

ARRAY+4 

J FORM -NUMBER OF BYTES 


MOV 

ARRAY+4 . I72 52A 

;a*s c omplement of number of bytes 


TST 

ARRAY 

jCHECK FOR READ 


9MI 

READ 

JMINUS = READ 


MOV 

#105^EXTRA 

JWRITE 


3R 

TWL 

JCHECK WRITE LOCK 

READS 

MOV 

# 103.EXTRA 



MOV 

#**5>TRY 

JSET RETRY COUNTER TO -5 


BR 

WOR 


3 

• 

J 

TAPSET SUBROUTINE 


TAPSETJMOV 

CR55+.226 

JPUT PROCESSOR PRIORITY IN 225 


MOV 

#10000.172522 

JISSUE POWER CLEAR 


MOV 

#IRET.224 

JPUT INTERRUPT RETURN IN«22A 

• 

RTS 

R5 


J 

» 

OFLINE SUBROUTINE 


OFLrl NEJMOV 

#1.EXTRA 

J GO BIT + 0 FUNCTION 

ORs 

JSR 

R4.CHECK 

JGET USER ARGUMENTS AND CHECK HARDWARE 


•WORD 2 

;NUMBER OF USER ARGUMENTS + 

BOR: 

BIS 

EXTRA.CHSET 

JUSER SETUP WORD + GO BIT 


MOV 

CHSET.172522 

JLOAD COMMAND REG 


RTS 

R5 

.RETURN TO USER 

> 

J 

REWIND SUBROUTINE 


REWIND:MOV 

#117.EXTRA 

.‘ENABLE BIT. GO BIT + 7 FUNCTION 


JSR R4.CHECK 



.WORD 2 



BR 

WOR 

JOTHERWISE SAME AS OFLINE 


SPACE SUBROUTINE 


SPACE 

: JSR RA.CHECK 

JUSER ARG AND CHECK READY 


.WORD 3 

J3 ARGUMENTS 


TST ARRAY-*-2 

JTEST POS OR NEG SPACING 


BMI SPB 

J NEG = BACKSPACE 


MOV #111.EXTRA 

JENABLE.GO AND A FUNCTION 


NEG ARRAY+2 

J FORM 2'S COMPLEMENT 

SOR: 

MOV ARRAY+2.1.7252A 

BR WOR 

J LOAD MTBRC 

SPB: 

MOV #113.EXTRA 

JENABLE. GO AND 5 FUNCTION 

• 

BR SOR 


1 

5 

WEOF SUBROUTINE 


weof: 

MOV #107.EXTRA 

J ENABLE SIT.GO BIT AND 3 FUNCTION 


JSR RA.CHECK 
.WORD 2 

JCHECK HARDWARE AND GET USER ARG. 

TWL: 

BIT #4.172520 

JTEST WRITE LOCK 


3NE EER 

JERROR. PUSH STACK AND TAKE ERROR EXIT 

WOR: 

INCB BUSY 

J SET BUSY FLAG 

J 

BR SOR 
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J INTERNAL SUBROUTINE TO CHECK FOR CU READY AND SELR READY 


CHECK: 

MOV 

(R4)+,CTR 


MOV 

R3, -CSP) 


MOV 

#ARRAY, R3 

CHI : 

MOV 

<R5 )+•»'< R3 > + 


DEC 

CTR 


BNE 

CHI 


MOV’ 

-< R3 ) , ER 


MOV 

CSP>+,R3 


BTT 

#200,172522. 


ses 

CHER . 


MOV 

ARRAY,CHSET 


BIC 

#110317,CHS 


MOV 

CHSET,172522 


BIT 

#102,172520 


BNE 

CHEXIT 

CHER: 

MOV 

CSP>+,R4 

EER : 

MOV 

<S?>+,R5 


JMP 

§ER ' 


CHEXITtCLRB. BUSY 


CLRB ERROR 
RTS R4 

EXTRA: .WORD 0 
CHSET: .WORD 0 
CTR: ER: .WORD 0 
ARRAY t .WORD Q *0 ,0 *0 
BUSY: .BYTE 0 

ERROR: .BYTE 0 
TRY: .WORD 0 


JPICK U? NR OF ARGUMENTS 
JSAVE R3 

JSET R3 = START OF ARRAY 
JMOVE ARGUMENTS TO ARRAY 
;DECREMENT NR OF ARGUMENTS COUNTER 
JIF NOT FI NI SHED.* CONTINUE 
j LAST ARGUMENT = ERROR RETURN TO USER 
JRESTORE R3 

jtest for cu ready 

J ERR OR . .. 

JNO*MOVE SETUP WORD TO TEMPORARY LOG 
;SET UP PSEUDO COMMAND 
JPUT INTO COMMAND REG 

jready or rewinding ok 

^SELECTED UNIT READY CHECK 

JERROR^ NOT READY OR CU NOT READY 

JRESTORE R4 AND R5 FROM STACK 

;G0 TO USER ERROR EXIT 

JSET NOT BUSY 

;SET NO ERROR 

JEXIT -AND RESTORE R4 

JMASKED SETUP WORD 

JTEMPORARY STORAGE 

JSET UP FOR OTHER ROUTINES 

JBUSY FLAG 

J ERR OR FLAG 

JREAD RETRY COUNTER 


J CMPLTE SUBROUTINE 
CM?LTE:TST3 BUSY 
BNE CMPLTE 
MOW <R5 > +,ARRAY 
MOV (R 5 ) +■, ARRA Y +2 
DECB ERROR 
SPL EFER 
RTS R5 

EFER: 8EQ NOTEF 

MOV ( SP ) +-,R5 
UMP 9ARRAY+2 
NOTEF:MOV (SP J + ,R5 
JMP iARRAY 


JWAIT FOR BUSY FLA G=0 
J ERR OR ADDRESS 
JEOF ADDRESS 
JO,l, 2 BECOME -1,0,1 
J0,1 = EOF OR ERROR 

J OK, EXIT VIA R5 
JO=ERROR 

JEOF, RESTORE R5 4 RETURN 
JERROR, RESTORE R5 & RETURN 



JINTERRUPT RETURNS HERE 
IRET: tstb error 
BEQ NEFL 
CLUB ERROR 
BIT #12>CHSET 
BNE NRD 
BIS #1Q>CHSET 
NRD: NOV ARRA Y +2 > 1 72 52 6 

MOV ARRAY+4 >1 72524 
MOV CHSET>172522 
RTI 

NEFL: BIT . #40000>172520 

BNE PTEX 
MOV CHSET >T 
9ICT #177761 >T 
BIT #1QQ0Q0>172522 
BEQ PT2 
C MP- # 10 > T 
BEQ PT1. 

CMP #12>T 
BEQ PT1 
CMP #16>T 
BEQ PT1 

BIT #100 200 >172520 
BNE PT1 

BIT #2000>172520 . 
BNE PTOM 

BIT #4400 >l72 520 
BNE RCH 

BIT #1Q00Q>172520 
BEQ PT1 

BIT #20000>172520 
BNE WCH 


5 IS ERROR FLAG SET 

J YES > CLEAR IT 
> FUNCTION .AND. 5 

JO = WRITE OR OFFLINE!NO INTERRUPT)... 

J THUS IT WAS A VRITS>CHA NGE EXT GAP 

JSET UP START ADDRESS 

JSET UP NR OF BYTES 

JSET UP COMMAND 

JBACK THROUGH INTERRUPT 

JEOF BIT SET 

J GET COMMAND 

JMO> ERROR OF ANY TYPE 

JWAS IT A SPACE FORWARD 

JIF SO DONT TRY AGAIN 

JWAS IT A SPACE BACK 

JIF SO DONT TRY AGAIN 

JWAS IT A REWIND 

JIF SO DONT TRY AGAIN 

JILC OR NXM 

JIF SO DONT TRY AGAIN 

JEOT 

JIF S0> CHECK READ 
J9GL>8TE 

JPAE? 

, J N0> RLE ERROR 
JCRE? 
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RCH 


CMP #2*T 
3E9 PT5 
3R PT4 
WCH: CMP #4*T 

3EQ PT4 
CMP #14>T 
BEQ PT4 
BR PT2 

PTO: CMP #2*T 

3NE PT4 
PT5 r 1NC TRY 
BEQ PTl 

PT41 MOV CHSET *T 

3IC #1T0216*T 
BIS #19*1 
INC3 ERROR 
MOV #-l* 179 524 
MOV T*172522 
RTI 

-PTOMS SIT #i4400 * 172 520 
BEQ PTl 
CMP #2 *T 
BNE PTl 
BR PT5 

Tt .WORD 0 

PTEX: IMCB ERROR 

PTl : I MCB ERROR 

PT2: CLRB BUSY 

RTI 
• END 

§ 


;read? 

J I F SO RETRY 
*ELSE OK 
JVRITE? 

J IF SO RETRY 
*WRITE WITH A 3 INCH GAP? 

JIF SO RETRY 

JELSE OK 

5WAS IT A READ 

JIF NOT TRY AGAIN 

;TJPDATE TRY COUNTER* LAST TRY 

JIF SO ERROR 

JEXTRACT PERTINENT INFO 
J FORM A BACKSPACE 
JSET ERROR FLAG 
Jl RECORD 
*ISSUE COMMAND 

JBGL*BTF OR PAE? 

JIF NOT* EXIT 
JA READ? 

JNO* ERROR 


JEOF EXIT 
J ERR OR EXIT. 

JCLEAR BUSY FLAG 
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LOADING PROCEDURES 



OPERATING INSTRUCTIONS 


TAPE DIAGNOSTICS 
PDP-11 


TC-130 DIAGNOSTIC 


1. Load Diagnostic tape on Tape Transport at BOT. 

a. For PE use first BOT marker for load point. 

b. For NRZI use second BOT marker for load point. 

2. Load bootstrap loader into PDP-11. 

Example: 16K Core 

a. Enter 037000 into switches and depress LOAD ADDRESS. 

b. Enter bootstrap per Figure 1. Depress DEPOSIT for each entry. 

c. Reenter (a) above. 

d. Depress EXAMINE to verify bootstrap is correct. 

e. Depress START. Tape Transport should read one record. 

f. Enter 772520 into switch register. (This is to check status - 
refer to Figure 2). 

g. Depress EXAMINE - good status is 000105. 

h. Enter 000200 into switch register. 

i. Depress LOAD ADDRESS. 

j. Depress START. 

CRT or Teletype will print the following: 

Set switch register according to operating instructions and 
Press CONTINUE. 

k. Remove Diagnostic tape and mount scratch tape on transport. 
Depress ON-LINE. 

l. Set switches normally to 11-7-5 on and depress CONTINUE. Note; 
there will be a short pause while test on addressing performed. 
Refer to diagnostic manual for switch settings. 

m. Diagnostic is now running. Each good run will result in printout ofc 

CYCLE #001 
CYCLE #002 
CYCLE #003 
Etc. 

n - Depress HALT to terminate test. 



B. 


TC-130 RELIABILITY 


1. Load Diagnostic tape on Tape Transport at BOT. 

a. For PE use first BOT marker for load point. 

b. For NRZI use second BOT Marker for load point. 


2. Load bootstrap loader into PDP-11. 

Example: 16K Core 

a. Enter 037000 into switches and depress LOAD ADDRESS. 

b. Enter bootstrap per Figure 1. Depress DEPOSIT for each entry. 

c. Reenter (a) above. 

d. Depress EXAMINE to verify bootstrap is correct. 

e. Depress START. Tape Transport should read one record. 

f. Depress CONTINUE. Tape Transport should read one record. 

g. Enter 7725 into switch register. (This is to check status - 
refer to Figure 2.) 

h. Depress EXAMINE. Good status is 00105. 

i. Enter 000200 into switches. 

j. Depress LOAD ADDRESS. 

k. Remove Diagnostic tape and mount scratch tape on tape to nsport. 
Depress ON-LINE. 

l. Depress START. CRT or Teletype will print the following: 

FBPII TRX 3SL- 

HECOHU LIMITS I» BYTES 
MINLEN MAXLSN 
3 234a 

EXERCISING UNITS 0 

m. Reliability should now be running. Unit will rim complete tape, 
then stop. 

n. CRT or Teletype will print following: 

«>*«***** **********#*vniTE PASS EBB 0F TAPE******************** 

DfflT PAT PAR DEN MODE RECORD LENGTH: 

0 7 X X SSTP 3715 rt-MAX 

WRITE- ERRORS * 0 

********************READ pass end OF TAPE******************** 
DRV PAT PAR- DEN MODE RECORD LENGTH 
0 7 X X . SSTP- 3715 M-MAX 

READ STATUS ERRORS * 0 

DATA ERRORS * a 

NON- RECOVERABLE ERRORS * 0 

o. Depress HALT. Test is complete. 



BOOTSTRAP LOADER/4K READ ROUTINE 


37000 

12737 

Move 

37002 

10000 

PWR CLR 

37004 

172522 

To CMD.REG. 

37006 

12737 

Move 

37010 

16000 

BYTE CNT. (4K) 

37012 

172524 

To BYTE CNT. REG. 

37014 

12737 

Move 

37016 

60003 

Read Command 

37020 

172522 

To CMD. REG. 

37022 

12700 

Move following location 
to Register 0 

37024 

00000 

0 

37026 

5200 

INCR. R0 

37030 

1376' 

BR=/ 0 

37032 

5200 

INCR. R0 

37034 

1376 

BR^ 0 

37036 

00000 

HLT. 


April 11, 1978 
Ed Smith 

POP. 11 Taos Loader 


AUTOMATIC TAPE LOADER 


Operating 
and place 


Instructions: 
desired block 


Deposit in High Cere, Load starting addre 
number in the Switch Register then press S 




LOCATION 


XXX 00 

12737 

10000 

172522 


PWR CLR 

06 

13702 

177570 



Move Sw Reg to R2 

12 

5402 

5202 



Negate R2 Inc R2 

16 

1411 




SEQ +11 

20 

10237 

172524 



Move R2 to Wd CNT 

24 

12737 

0011 

172522 


SPACE FWD 

32 

32737 

0001 

172520 

1774 

Wait for TUR 

42 

12737 

160000 

172524 


Move 160000 to Wd CNT 

50 

12737 

60003 

172522 


READ 

56 

32737 

0001 

172520 

1774 

Wait for TUR 

66 

12737 

0017 

172522 


Rewind 

74 

0000 




HALT 



REVISIONS 


LTR 

DESCRIPTION 

DATE 

APPROVED I 

A 

P£OD. R£U 

8 -ZZ-7S 

sKflP. 1 


I 

1 


PURPOSE 


The purpose of this specification is to define type, layout and content 
of W.P. Diagnostic Magnetic Tape. 

1. Material shall be 250 feet of magnetic tape as defined in ANSI.X3.40- 
1976 mounted on a six inch reel with mailer. 

2. The information (data) shall be written on the tape in NRZI, 800 CPI, 
at the beginning (first BOT) of tape. 

A second BOT marker shall be placed on the tape approximately 10’ 
beyond the first data field. 

The information (data) shall be repeated at 1600 CPI, PE, beginning 
at the second BOT. 

3. On the front of the reel and the front of the mailer a label shall 
be affixed containing the following information: 


latest rev. ltr. 

"OF THIS DWG. 


4. A copy of the Directory and Loading Procedure, WP document.no. 66000001, 
shall be included with the tape. 


WP #68000009-.'"! 
BOT #1 NRZ 
BOT #2 PE 

V___/ 
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>n 


TOLERANCES UNLESS 

otherwise specified 
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PROGRAM W.P. MASTER DIAGNOSTIC M.T. 

s 
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DATE 
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A 
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REVISIONS 


LTR j DESCRIPTION 

DATE APPROVED j 

A PROD. REL. 

3-22-79 



Co.wo* ~cD 


MASTER DIAGNOSTIC TAPE 
BOT #1 NRZ REV. C 
BOT #2 PE 30-JUN-78 

1. TC130 DIAGNOSTIC 

2. TC130 RELIABILITY 

3. TCI20 DIAGNOSTIC 

4. TC120 RELIABILITY 

5. DC220 DIAGNOSTIC 

6. DC220 RELIABILITY 

7. DC220-10 FORMATTER 

8. DC22Q-1Q RELIABILITY 

9. DC220-10 DIAGNOSTIC, 1ST 4K 

10. DC220-10 DIAGNOSTIC, 2ND 4K 

11. DC230 DIAGNOSTIC 

12. DC230 RELIABILITY 

13. TC13Q DIAGNOSTIC 11/34 

14. TC13Q RELIABILITY 11/34 


PDP-11 BOOTSTRAP LOADER 


LOC 

INST 



37000 

12737 

MOV NXT ADD 
CMD REG 

INTO 

2 

10000 

POWER CLEAR 


4 

172522 

CMD REG 


6 

12737 

MOV NXT ADD 
BYTE CTR 

INTO 

10 

160000 

(4K) 


12 

172524 

BYTE CNT REG 


14 

12737 

MOV NXT ADD 
CMD REG 

INTO 

16 

60003 



20 

172522 

CMD REG 


22 

12700 

MOV 0 INTO REG 0 

24 

00000 



26 

5200 

INC R0 


30 

1376 

BR*0 


32 

5200 

INC RQ 


34 

1376 

BR¥0 


' 36 

00000 

HLT 
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REVISIONS 


LTR j DESCRIPTION 

A PRsd.ehl. 


APPROVED 


\8&--l8 X'y.r+HS, 


PURPOSE 

The purpose of this specification is to define type, layout and content 
of W.P. Diagnostic Magnetic Tape. 


1. Material shall be 250 feet of magnetic tape as defined in ANSI.X3.40- 
1976 mounted on a six inch reel with mailer. 

2. The information (data) shall be written on the tape in NRZI, 8QQ CPI, 
at the beginning (first BOT). of tape. 

A second BOT marker shall be placed on the tape approximately 10' 
beyond the first data field. 

The information (data) shall be repeated at 1600 CPI, PE, beginning 
at the second BOT. 

3. On the front of the reel and the front of the mailer a label shall 
be affixed containing the following information: 


LATEST REV. LTR. 

OF THIS- 

4. A copy of the Directory and Loading Procedure, WP document no. 66000019, 
shall be included with the tape. 


WP #68000017-;j 
BOT #1 NRZ 
BOT #2 PE 





REVISIONS 


j LTH 

DESCRIPTION i OATE 

APPROVED j 

A 

PR.CD.2.EL. 

3 -£2-V5 


! B 

CORRECTED iNSTR. 

' Z- 18-20 1 

| iGtX' | 


WPDP DIAGNOSTICS 


BOT *1 

NRZ 


BCT t 2 

PE REV. D 


ENTRY * 

FILNAM.EXT 

r> TV fTlTP 

UJt' 

000001 

THDP .SAV 

26-JUN-7SC 

000002 

TMDP .SAV 

2S-JUN-78C 

000003 

THDP .BIN 

26-JXJN-78 

000004 

TMDP .3IN 

26 - JTJN-7 8 

000005 

CJPD1 .3 IN 

26-JUN-78 

000006 

UPD2 .3IN 

26-JUN-73 

000007 

RKDP .3IN 

26-JUN-78 

000010 

rxdp .BIN 

26-JUN-78 

000011 

COPY .BIN 

26-JUN-73 

000012 

FORMAT.BIN 

26-JUN-73 

000013 

WPDIAM.3IN 

26-JUN-78 

000014 

WP RELM.3IN 

26-JUN-78 

000015 

WPDIAD. BIN 

26-JUN-78 

000016 

WPRELD.BIN 

25-JUN-73 

000017 

WPDLSM.3IN 

26-JUN-73 

000020 

WPRLSM.3IN 

26-JUN-78 

000021 

WPDLSD.BIN 

26-JUN-78 

000022 

WPRLSD. 3 IN 

26-JUN-78 

000023 

WPDI34.3IN 

26-JUN-7S 

000024 

WPRE34.3IN 

26-JUN-78 

000025 

WPDI03.3IN 

26-JUN-73 

000026 

WPRE03.3IN 

26-JUN-78 


TOUXAMCZS UN (JESS 
OTWtHWIS* tffCFICO 
FMcnoNi see. AMausj 


i 
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REVISIONS 


LTR 


DESCRIPTION 


DATE 


APPROVED 


1 . 

2 , 


OPERATING INSTRUCTIONS 
WPDP DIAGNOSTIC MAGNETIC TAPE 

Load program tape on transport, position at 30T, and place ON-LINE. 
Enter the following bootstrap loader into the computer: 


LOCATION 

DATA 

PDP-11 

: (Location) LOAD ADDRes 

10 000 

12737 

(Data) 

DEPosit, (Data) DEPosit 

10 002 

3 



10 004 

172522 

LSI-11 

: (Location) / , 

10 006 

777 

(Data) 

LINE FEED, (Data) LINE : 

Execute the bootstrap program: 



PDF' 

-11 


LSI-11 

10000, 

LOAD ADDRESS, 


10000 G 

START, 

HALT, 


Break key 

10000, 

LOAD ADDRESS, 


10000 G 

START, 

HALT, 


Break key 

102, 

LOAD ADDRESS, 


102 / 

402, 

DEPOSIT, 


402 LINE FEED 

70, 

LOAD ADDRESS, 


70 G 

START 




Follow pr 

inted instructions. 
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LiELJ 

DESCRIPTION DATE 

APPROVED | 


Type: R(Sp) 

WPDIAM 

(Return) 

for 

tape 

Diagnostic 

Program 

on PDP-11 

R(Sp) 

WPRELM 

(Return) 

for 

tape 

Reliability 

Program 

on PDP-11 

R(Sp) 

WPDIAD 

(Return) 

for 

DC-230 

Diagnostic 

Program 

on PDP-11 

R (S p) 

WPRELD 

(Return) 

for 

DC-230 

Reliability 

Program 

on PDP-11 

R (So) 

WPDLSM 

(Return) 

for 

tape 

Diagnostic Program 
(no panel 

on LSI-11 
switches) 

R (Sp) 

WPRLSM 

(Return) 

for 

tape 

Reliability Program 
(no panel 

on LSI-11 
switches) 

R(Sp)' 

WPDLSD 

(Return) 

for 

DC-230 

Diagnostic 

Program 

on LSI-11 

R (Sp) 

WPRLSD 

(Return) 

for 

DC-230 

Reliability 

Program 

on LSI-11 

R (Sp) 

WPD134 

(Return) 

for 

tape 

Diagnostic Program 
(no panel 

on PDP-11/34 
switches) 

R (Sp) 

WP RE 3 4 

(Return) 

for 

tape 

Reliability Program 
(no panel 

on PDP-11/34 
switches) 

R (Sp) 

WPDI03 

(Return) 

for 

tape 

Diagnostic 

Program 

on LSI-11/03 

Remove the program 

tape from 

the 

drive 

and load a scratch tape, posi- 

tioning at BOT and 

placing the drive ON 

-LINE. 




SCALE 

SIZE 

DRAWING NO. j 


A 

66000019 


DO NOT SCALE DRAWING 


SHEET 3 Of 3 




LTR 

DESCRIPTION 

j DATE 

A 

RELEASE 

1 ?/?,4 


APPROVED 



TOLERANCES UNLESS 
OTHERWISE SPECS FI EO 
FRACTIONS DEC. ANGLES 

s: ± ± 
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1 

REVISIONS 



hr 1 

DESCRIPTION 

DATE 

APPROVED 

MASTER DIAGNOSTIC TAPE CARTRIDGE 






Record 

Program 

1 

TC160 DIAGNOSTIC 

2 

TC160 RELIABILITY 

3 

TC170 DIAGNOSTIC 

4 

TC170 RELIABILITY 

5 

TCI80 DIAGNOSTIC 

6 

TC180 RELIABILITY 


BOOTSTRAP 

LOADER 


Loc 

Inst 


37000 

12737 

MOV 

2 

10000 

POWER CLEAR 

4 

172522 

CMD REG 

6 

12737 

MOV 

10 

160000 

(4K) 

12 

172524 

BYTE CNT REG 

14 

12737 

MOV .... 

16 

3 

READ 

20 

172522 

CMD REG 

22 

32737 

BIT TEST 

24 

1 

FOR TUR BIT 

26 

172520 

IN STATUS REG 

30 

1774 

BRANCH IF NOT READY 

32 

0 

HALT 


3. DATA GENERAL BOOTSTRAP LOADING PROCEDURE 

Clear Accumulators to 0. Load first test by starting Read 
routine. Load succeeding tests by pressing Continue. 

NOVA Read Routine - Load in top 8 locations of memory. 


67022 

DOC 1 

72022 

DOB 2 

61122 

DOAS 0 

63622 

SKPDN 

777 

JMP-1 

74422 

DIA 3 

63077 

HALT 

771 

JMP-7 


AP R 3 ' SiX 


SCALE 

SIZE 

DRAWING NO. 


A 

66000068 


DO NOT SCALE DRAWING 


SHEET 2 OF 3 



f 
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DATE 


APPROVED 


NOVA Read Routine (Cont'd) 


Accumulator_No. 


COMMAND 0 
WD CNT 1 
STRT ADDR (DIRECT) 2 
STATUS 3 


Commands 

0 = Read 

1 = Rewind 

2 * Not Used 

3 = Space Forward 

4 = Space Reverse 

5 = Write 

6 = WEOF 

7 = Erase 


4. REMOVE THE PROGRAM TAPE FROM THE DRIVE AND INSERT A SCRATCH 
TAPE. 

5. REFER TO THE APPROPRIATE DIAGNOSTIC MANUAL FOR REQUIRED PATCHES 
AND FOR OPERATING INSTRUCTIONS. 


APR 3 1881 
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PROGRAM PATCHES 



NOTES 


DIAGNOSTIC PATCHES 


Eater the following changes when running the controller diagnostic st 


1 . 


Operational delay for unusual timing - related errors. 
Location Was Should Be Description 


3664 T 12 Controller not ready 

12132 5 12 Controller not ready 

2. Non-existent memory error (systems with extra memory): 

Location Was Should Be Descriotioa 


5702 


173000 


176000 


Non-existent Memory 


NOTES 


MODIFICATIONS REQUIRED FOR NON-STANDARD 
ADDRESSES OF CONTROLLER TO RUN 
FUNCTIONAL AND RELIABILITY DIAGNOSTICS 

FUNCTIONAL DIAGNOSTICS: 





LOC 

IS 

CPU 

SW4 

OFF 

1000 

172520 

CPU 

SW4 

ON 

1002 

172720 


Function Should Equal First Address of Controller (Status Reg.) 


CPU 

SW4 

OFF 

1004 

224 

CPU 

SW4 

ON 

1010 

260 


Should Equal Interrupt Vector Address 


CPU 

SW4 

OFF 

1006 

226 

CPU 

SW4 

ON 

1012 

262 


Should Equal Interrupt Vector Address +2 

RELIABILITY DIAGNOSTICS: 


214 

172520 

Should Equal Status Reg. Address 

216 

172522 

Should Equal Command Reg. Address 

220 

172524 

Should Equal Byte Count Reg. Address 

222 

172526 

Should Equal Address Reg. Address 

254 

224 

Should Equal Interrupt Vector Address 




DATE: 4/2/30 








NOTES 


MODEL TC-160 AND TC-180 

FUNCTIONAL DIAGNOSTIC PROGRAM PATCHES 
(SETTLEDOWN & ID ENT STATUS) 


ADDRESS: 

WAS: 

SHOULD BE: 

3708 

104400 

400 

4246 

104400 

400 



NOTES 


PROGRAM PATCHES 
FOR TC-19Q OPERATION 


DIAGNOSTIC PROGRAM 


RELIABILITY PROGRAM 


LOCATION 

WAS 

SHOULD BE 

LOCATION 

WAS 

SHOULD BE 

3202 

5037 

137 

100 

0 

10001 

3204 

1044 

3244 

102 

0 

6200 

3270 

40000 

60000 

104 

0 

6200 

3554 

5777 

403 

106 

0 

60100 

4262 

14557 

14562 

110 

0 

5400 

4362 

14723 

14726 

112 

0 

10037 

4420 

14561 

14562 

114 

0 

172524 

4476 

14725 

14726 

116 

0 

62702 

5052 

11423 

46114 

120 

0 

4 

5254 

377 

170000 

122 

0 

10207 

6474 

177754 

177747 

4726 

13777 

13700 

6564 

177754 

177747 

4732 

173264 

10702 

6706 

20000 

60000 

4734 

5477 

137 

6714 

20000 

60000 

4736 

173260 

100 

6760 

17000 

17377 

7346 

13777 

13700 

7100 

17000 

16766 

7352 

170644 

10702 

7322 

744 

777 

7354 

5477 

137 

7522 

4 

777 

7356 

170640 

100 

10140 

20037 

137 

10366 

13777 

13700 

10142 

1072 

10252 

10372 

167624 

10702 




10374 

5477 

137 




10376 

167620 

100 










REVISIONS 


DESCRIPTION 


DATE T-APPROVED 


A imittal. 'ruse \io-z<$-8o\\C.^/yjy 


PURPOSE: To test PDP-ll/LSI-11 tape controllers that have been modified to a 

non-standard vector address. 


1. Load diagnostic into memory. 

2. Modify the following locations: 


LOC 

was 

S/B 

1004 

224 

new vector 

1006 

226 

new vector +2 

1014 

224 

new vector 

1016 

226 

new vector +2 


* EXAMPLE: If the new vector is 320, then 1004, 1014 would contain 

320 and 1006, 1016 would contain 322. 

3. If the controller also has a non-standard device address, the program 
must also be modified. Reference test procedure 92000165. 

4. Run diagnostic using standard method successfully for 3 passes. 


NOTE: RELIABILITY CANNOT BE RUN WITH NON-STANDARD VECTOR. 


C\ 
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TEST PROCEDURE - 

PDP/LSI-11 ALTERNATE VECTOR 
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NOTES 


RUNNING THE DIAGNOSTIC ON LSI-11 OR 
PDP-11/34 SYSTEMS WITHOUT SWITCH PANELS 


This information documents the special diagnostic versions 
and allows modification of the standard diagnostic. 


Location 

Standard 

PDP-11/34 

LSI-11 

36 

340 

0 

0 

1166 

12711 

14556 

14556 

1232 

177570 

176 

176 

1262 

177570 

176 

176 

1366 

5037 

5037 

106427 

1370 

177776 

177776 

0 

1430 

177570 

176 

176 

1454 

177570 

176 

176 

3122 

177570 

176 

176 

3122 

177570 

176 

176 

3232 

177570 

176 

176 

3370 

6037 

4737 

4737 

3372 

■ 177570 

17002 

17002 

3374 

103407 

1007 

1007 

4220 

177570 

176 

176 

5036 

177570 

176 

176 

5042 

6037 

4737 

4737 

5044 

177570 

17002 

17002 

5046 

103406 

1006 

1006 

5070 

177570 

176 

176 

5242 

177570 

176 

176 

5566 

177570 

176 

176 

5776 

13737 

13737 

106437 

6002 

177776 

177776 

240 

6050 

13737 

13737 

106437 

6054 

177776 

177776 

240 

6126 

13737 

13737 

106437 

6132 

177776 

177776 

240 

6240 

13737 

13737 

106437 

6244 

177776 

177776 

240 

6424 

5037 

5037 

106427 

6426 

177776 

177776 

0 

6706 

20000 

60000 

60000 

6714 

20000 

60000 

60000 

7112 

177570 

176 

176 

7160 

6037 

4737 

4737 

7162 

177570 

17002 

17002 

7164 

103003 

1403 

1403 

7244 

6037 

4737 

4737 

7246 

177570 

17002 

17002 

7250 

103003 

1403 

1403 

7364 

6037 

4737 

4737 

7366 

177570 

17002 

17002 

7370 

103003 

1403 

1403 
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DIAGNOSTIC MODS 


Location 

Standard 

PDP-11/34 

LSI-11 

7512 

6037 

4737 

4737 

7514 

177570 

17002 

17002 

7516 

103411 

1011 

1011 

7560 

6037 

4737 

4737 

7562 

177570 

17002 

17002 

7564 

103002 

1402 

1402 

10234 

177570 

176 

176 

10332 

177570 

176 

176 

10356 

177570 

176 

176 

11056 

177570 

176 

176 

11700 

177570 

176 

176 

12024 

177570 

176 

176 

12040 

177570 

176 

176 

12664 

177570 

176 

176 
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NOTES 


DIAGNSOTIC FEATURES (Switch Register) 
NON-STANDARD 

The diagnostic uses location 176 as a switch register and must be 
loaded as follows: 


15 14 13 12 11 10 


1 0 



STARTING/RESTARTING 

The diagnostic may be started at location 16000 the first time only. 
Thereafter, the diagnostic must be restarted at location 200. When 
restarting at location 200 the printed message should be disregarded, 
however, location 176 may be changed at this time. (Again, restart 
the program at location 200). The program is executed by continuing 
or proceeding from this programmed stopping point. 




SPECIAL TEST LOOPS 



NOTES 


TAPE ROUTINE 


Location 

Instruction 

Description 

37000 

12737 

Move 

2 

10000 

Clear 

4 

172522 

To Command Register 

6 

12737 

Move 

10 

177774 

Byte Count 

12 

172524 

To Byte Count Register 

14 

12737 

Move 

16 

17000 

Memory Address 

20 

172526 

To Memory Address Register 

22 

12737 

Move (X - 5 (Write) 

24 

6000X 

Command (X = 3 (Read) 

26 

172522 

To Command Register 

30 

32737 

Bit Test 


32 

00001 

For Tape Unit Ready Bit 


34 

172520 

In the Status Register 


36 

1774 

Branch if Not Ready 


40 

32737 

Bit Test 

42 

2000 

For EOT Bit 

44 

172520 

In the Status Register 

46 

1754 

Branch to Start if not EOT 

50 

00000 

Halt 

17000 

(DATA) 


2 

(DATA) 



For Single Record Operations (press CONTINUE for each record): 


37030 

32 


00000 

762 


Halt 

Branch to Start 



NOTES 


TROUBLESHOOTING LOOP 


XXX 00 

12737 

START 

02 

10000 

POWER CLEAR 

04 

172522 


06 

12737 


10 

177775 

BYTE COUNT 

12 

172524 


14 

12737 


16 

XXXXX 

ADDRESS 

20 

172526 


22 

12737 


24 

X 

COMMAND: 3=READ 5=WRITE 

26 

172522 


30 

12702 


32 

37000 

MOV #37000, R2 DELAY CONSTANT 

34 

5302 

DEC R2 

36 

1376 

BNE 

40 

32737 


42 

2000 


44 

172520 

EOT? 

46 

1754 


50 

12737 


52 

17 

REWIND 

54 

172522 


56 

750 

RESTART 



NOTES 


PDP-11 Modified Manual 
Write/Head Program 


Dutch Hamilton 

NOTE: THIS 

PROGRAM ALLOWS IBM TEST 

11-4-77 




LOC 

CODE 


DESCRIPTION 

36770 

12737 

1 

REWIND 

2 

60017 



4 

172522 

i 


6 

000000 


HALT 


37000 

12737 


POWER CLEAR - START 

2 

10000 



4 

172522 

j 


6 

12737 


IBM TEST x = 0: Non IBM 

10 

00X000 


> x = 2; IBM 

12 

172532 



14 

12737 


BYTE COUNT x = 6: 2 bytes 

16 

77777X 


X=7; 1 BYTE x = 5: 3 bytes 

20 

172524 


x = 4: 4 bytes 

22 

12737 

> 

DMA ADDRESS 

24 

17000 

*| 


26 

172526 



30 

12737 


COMMAND REGISTER 

32 

600XX 

! 

i 

XX=03 (READ) xx = 07 (WRITE E 

34 

172522 

i 

XX=05 (WRITE) xx = 17 (REWIND) 

36 

32737 


Test for Tape 

37040 

000001 


Unit Ready 

42 

172520 



44 

1774 


Branch to 37036 if TUR 

46 

32737 


Test for EOT 

50 

2000 



52 

172520 



54 

1754 


Branch to 36770 if EOT 

56 

000000 


HALT 

60 

743 


Branch to Start 


NOTES; 

(1) For continuous operation, enter 1751 @ LOC 37054. 

(2) IBM Test (4 Bytes) 

a. Write (IBM) = 174400/174400 

b. Zero Out = 17000, -01 

c. Read (NIBM) = 000377/000377 

d. Repeat a, c above, Write (NIBM), Read IBM. 

(3) For single record 37036= 000000 HALT 

37040= 757 BRANCH TO START 
PRESS "CONTINUE" FOR EACH RECORD 
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LTR j 

DESCRIPTION j DATE | 

APPROVED j 


SCOPE 

This procedure defines an efficient method of duplicating ’’master 11 diagnostic 
tapes. 

EQUIPMENT NEEDED 

1. DEC computer system with 8K (minimum) memory. 

2. Terminal device. 

3. Controller with two tape drives. (Known-good equipment) 

4. The master copy of the Master diagnostic tape. 

5. Blank tape. 

OPERATING INSTRUCTIONS 

1. Enter the copy program into the computer. (See sheet 4) 

2. Load Master diagnostic tape on drive 0 and the blank tape on drive 1. 

3. Ensure that both tapes are at load point, on-line, and set to the 
desired density. 

4. Start the program at location 1000. 

5. Both tapes will begin moving as information is copied. 

6. (a) If the computer halts at location 1142, an error was detected. 

To try again, rewind both drives and return to step 3 - 

(b) If drive 0 automatically rewinds, a good copy was made. 

7. (a) For serial tape cartridges, change location 1054 to: 

20405 for the second track 

40405 for the third track 

60405 for the fourth track 

Rewind drive 1 and return to step 3- 

(b) For an alternate density on the same tape: 

(reel-tapes only): 

(1) Move the tape forward two or three feet (manually or use 
FORWARD control). 

(2) Place a B0T marker on the tape (on shiny side, near front 
edge). 
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DESCRIPTION 


APPROVED 


(3) Rewind to new BOT and place ON LINE. 

(4) Set density control. 

(5) Return to step 3• 

(c) Rewind and remove the new copy. To repeat for another tape 
place another blank tape on drive 1 and place on-line. 
Return to step 3* 
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REVISIONS 


1 


LTR 

DESCRIPTION DATE j APPROVED i 


DEC MASTER TAPE COPY PROGRAM 


1000 

012706 


START: MOVE j 

2 

01000 


1000 to SR 

4 

04767 


LOOP: JSR 

6 

00070 


DONE 

10 

12737 


READ: MOVE 

12 

00000 


0 TO 

14 

172524 


MTBRC 

16 

12737 


MOVE 

20 

02000 


2000 TO 

22 

172526 


MTCMA 

24 

12737 


MOVE 

26 

00003 


READ UNIT 0 TO 

30 

172522 


MTC 

32 

04767 


JSR 

34 

00042 


DONE 

36 

01762 


BEQ LOOP 

40 

05437 


WRITE: NEG 

42 

172524 


MTBRC 

44 

12737 


MOVE 

46 

02000 


2000 TO 

50 

172526 


MTCMA 

52 

12737 


MOVE 

54 

00405 


WRITE UNIT 1 TO 

56 

172522 


MTC 

60 

04767 


JSR 

62 

■ 00014 


DONE 

64 

747 


BR LOOP 
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ITR 

DESCRIPTION 

DATE 

APPROVED | 



DEC MASTER TAPE COPY PROGRAM 



00 

32737 

DONE: 

31T TEST 
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